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PREFACE 



The CRAY-1 FORTRAN Compiler (CFT) transforms CRAY-1 FORTRAN Language 
statements into the highly efficient computer programs required for 
effective use of the CRAY-1 Computer System. This manual describes 
the CRAY-1 FORTRAN Language in its entirety, the use of the CRAY-1 
FORTRAN Compiler, and related CRAY-1 Operating System characteristics. 

This publication results from a high degree of cooperation and dedication 
on the part of many at Cray Research. Notable among these are Richard 
Nelson, Head FORTRAN Programmer, and Irene Mallgrave and Richard 
Hendrickson of FORTRAN Compiler Development. Editorial and graphics 
support were provided by Janet Robidoux, Head Publications Editor, and 
Chad Jewett of Technical Communications. The manuscript was typed by 
Mary Huber and Arlene LaBounty. 

Cray Research is especially grateful for the invaluable general and 
technical critiques of this material by: 

• Mostyn Lewis of the European Centre for Medium Range Weather 
Forecasts at Bracknell, Berkshire, England; 

• Robert Cave of Princeton, New Jersey; and 

• Russell Rew of the National Center for Atmospheric Research, 
Boulder, Colorado. 

The final measure of this manual's worth lies in its usefulness to you, 
the reader. Cray Research invites your comments and criticisms as 
essential to the continued improvement of this publication. 

Neill T. Ward 
November, 1977 
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1 INTRODUCTION 



INTRODUCTION 1 



1.1 GENERAL 

CRAY-1 FORTRAN provides the CRAY-1 Computer System programmer with a means of 
specifying computer programs in a high-level language while retaining 
control of the performance and capabilities of the CRAY-1 Computer. 
This is made possible by the CRAY-1 FORTRAN Compiler, CFT, which transforms 
CRAY-1 FORTRAN Language statements into highly efficient machine -language 
instruction sequences, or programs. Programs created by CFT exploit CRAY-1 
features without special consideration by the FORTRAN programmer. 

The CRAY-1 Operating System (COS) supports CFT and the programs created by 
CFT by initiating and monitoring their execution. 

A working knowledge of CRAY-1 FORTRAN demands an understanding of certain 
aspects of: 

• The CRAY-1 Computer System, 

o The CRAY-1 FORTRAN Compiler (CFT) , and 

• The CRAY-1 Operating System (COS) . 



1.2 THE CRAY-1 COMPUTER SYSTEM 

Section 2 describes the fundamentals of CRAY-1 Computer System organization, 
capabilities, and use. It emphasizes those areas of greater significance 
to the CRAY-1 FORTRAN programmer such as memory size, data formats and 
vector processing capabilities. 



1.3 THE CRAY-1 FORTRAN LANGUAGE 

Section 3 fully describes the CRAY-1 FORTRAN language. The presentation 
is progressive, proceeding from the identities and forms of basic syntactic 
elements through the full range of CRAY-1 FORTRAN statement types and 
applications. Examples reinforce more formal explanations and confirm 
the reader ' s correct understanding of the material . 

1.4 CRAY-1 FORTRAN PROGRAMMING 

Section 4 identifies characteristics of the CRAY-1 Computer System, the 
consideration of which would improve the performance of computer programs 
written in the CRAY-1 FORTRAN Language. Additionally, this section defines 
CRAY-1 Operating System (COS) methods for organizing and referencing these 
programs and related data. 
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1.5 THE CRAY-1 FORTRAN COMPILER (CFT) 

During the transformation of CRAY-1 FORTRAN Language statements into 
executable machine language programs, the CRAY-1 FORTRAN Compiler (CFT) 
produces symbolic listings and other information for the user. Addition- 
ally, the user may control these and certain other compiler actions. Section 
5 describes. CFT operations supporting the CRAY-1 FORTRAN programmer. 

1.6 THE CRAY-1 OPERATING SYSTEM (COS) 



Section 6 presents those features of the CRAY-1 Operating System (COS) 
provided for use by the CRAY-1 FORTRAN programmer. It describes the creation, 
loading and execution of computer programs compiled by CFT. 
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2 THE CRAY-1 COMPUTER SYSTEM 



THE CRAY-1 COMPUTER SYSTEM 2 

2.1 GENERAL 

This section provides an overview of the CRAY-1 Computer System. Emphasis 
is on those features of the central processing unit of significance to 
the CRAY-1 FORTRAN programmer. A complete description of the CRAY-1 is 
documented in the "CRAY-1 Reference Manual" (2240004) . 

The CRAY-1, Computer System is a large-scale, general-purpose, scientific 
digital computer designed for high-speed computation on large volumes of 
data. It is capable of storing over a million binary computer words of 
instructions and data and of providing computational results in excess of 
100-million per second. The CRAY-1 has twelve high-speed input/output 
channels for data transfers to and from its mass storage subsystem, one or 
more computer systems , and its Maintenance Control Unit . 

The CRAY-1 FORTRAN Compiler (CFT) , while closely adhering to the "ANSI 
FORTRAN X3.9-1966" FORTRAN Language standards, draws upon capabilities 
unique to the CRAY-1 Computer System. Machine language programs produced 
by CFT are capable of highly efficient use of the CRAY-1' s resources without 
the user specifying more than standard FORTRAN constructs. There are, 
however, certain fundamental characteristics of the CRAY-1, as with any 
computer programmed in FORTRAN, that may enhance the effectiveness of 
FORTRAN program specification. These include memory size and speed and 
data word length and format. 

2.2 SYSTEM OVERVIEW 

The CRAY-1 Computer System serves as an extremely powerful computational 
resource for one or more "host" processors. Although capable of operating 
in a stand-alone mode, the CRAY-1 is normally dedicated to computation 
with a host processor controlling low-speed peripheral equipments. 

The configuration of the CRAY-1 Computer System consists of: 

o The central processing unit (CPU) , 

• The mass storage subsystem, 

• The external interface unit(s), 

• The maintenance control unit (MCU) , 

e Local input/output stations (optional) , and 

• The CRAY-1 operating system (COS) . 

As illustrated in figure 2-1, the Central Processing Unit (CPU) is the 
nucleus of CRAY-1 Computer System operations. The CPU not only receives, 
transmits, and processes all information entering or leaving the CRAY-1 
but also controls the operation of all other system components supporting 
these CPU activities . 
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THE CRAY-1 COMPUTER SYSTEM 



MAINTENANCE CONTROL UNIT 



• CHANNEL-CONNECTED TO CPU 

• MINICOMPUTER CONTROLLER 

• DISK STORAGE 

• MAGNETIC TAPE STORAGE 

• LINE PRINTER 

• CARD READER 

• CRT/KEYBOARD CONSOLES 



I 



LOCAL INPUT/OUTPUT STATION (OPTIONAL) 



•CHANNEL-CONNECTED TO CPU 
•MINICOMPUTER CONTROLLER 

• DISK STORAGE 

• MAGNETIC TAPE STORAGE 

• LINE PRINTER 

• CARD READER 

• CRT/KEYBOARD CONSOLES 

• COMMUNICATION WITH REMOTE STATIONS 
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CENTRAL PROCESSING UNIT 



• MEMORY SECTION —UP TO 1,048,576 64-BIT WORDS 

• COMPUTATION SECTION — OVER 100 MILLION OPERATIONS PER SECOND 

• INSTRUCTION CONTROL SECTION — 128-INSTRUCTION REPERTOIRE; INTERRUPT 

• INPUT/OUTPUT SECTION — 12 INPUT AND 12 OUTPUT CHANNELS 

• CRAY-1 OPERATING SYSTEM (COS) SOFTWARE 



I 



MASS STORAGE SUBSYSTEM 



• 1 TO 4 DCU2 DUAL-ACCESS 
DISK CONTROL UNITS 

> 2 TO 32 DD19 DUAL- ACCESS 
DISK STORAGE UNITS 



t t 
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EXTERNAL INTERFACE UNIT 



•CHANNEL-TO-CHANNEL CRAY-1/HOST 
COMPUTER PROGRAMMABLE INTERFACE 

• ERROR DETECTION/CORRECTION 
CIRCUITRY 

• OPTIONAL LONG-LINE ADAPTORS 



^ 



^ 



REMOTE 

{ INPUT/OUTPUT 

STATIONS 

(OPTIONAL) 



HOST COMPUTER 



Figure 2-1. The CRAY-1 Computer System 

The Mass Storage Subsystem consists of from one to four DCU-2 Disk Control 
Units, each capable of interfacing four DD-19 Disk Storage Units to the 
CPU. Each DD-19 Disk Storage Unit can hold 37 million 64-bit words and 
can transfer these to and from the CPU at a sustained rate of 500,000 words 
per second. 

During operational use, one or more external interface units control the 
high-speed transfer of program and data information between the CRAY-1 
Computer System and one or more host processors. These units support 
intercomputer data transmission protocol, compensate for differences 
in data representation between the two systems, and perform extensive 
data validation and correction operations. 

The Maintenance Control Unit (MCU) is a minicomputer connected to the 
CPU to support field engineering in their maintenance of the CRAY-1 
Computer System. 
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One or more local input/output stations may be channel-connected to the 
CPU to control card readers , line printers , magnetic tape drives , and 
similar peripheral equipments to be used for data input and output. 
Additionally, each can control communications with one or more remote 
input/output stations . 

The CRAY-1 Operating System (COS) resides in the CPU during operation of 
the CRAY-1 Computer System. COS coordinates all system components. COS 
activities depend upon information accompanying the jobs it processes, 
conditions in the CRAY-1, and commands received from one or more host 
computer systems. The multiprogramming environment in which jobs are 
processed by the CRAY-1 is established and maintained by COS. 

2.3 THE CENTRAL PROCESSING UNIT 

The Central Processing Unit (CPU) of the CRAY-1 Computer System (Figure 2-2) 
consists of: 

e The memory section, 

• The instruction control section, 

• The computation section, and 

o The input/output section. 

The CRAY-1 Operating System maintains constant control of the CPU and its 
interaction with other system components during normal operation. The CPU 
is described further in Appendix G. 



MEMORY SECTION 

• 262,144 OR 524,288 OR 1, 048, 576 
64-BIT WORDS 

•80,000,000 WORDS PER SECOND MAXIMUM 
TRANSFER RATE 

• SINGLE ERROR CORRECTION/DOUBLE ERROR 
DETECTION (SECDED) 

o MEMORY PROTECTION 



COMPUTATION SECTION 



INSTRUCTION CONTROL SECTION 

• 256 INSTRUCTION • INTERRUPT CONTROL/ ~ CRAY-1 ~ \» 658 OPERATING 
BUFFER REGISTERS . , 2 5 NANQSEC0ND MULTIPROGRAMMING] REGISTERS 
128- INSTRUCT I ON CLOCK PERIOD AND \ OPERATING /• OVER 100,000,000 
REPERTOIRE REAL-TIME CLOCK \ SYSTEM /| OPERATIONS PER SECOND 



•SCALAR, VECTOR, AND 
ADDRESS COMPUTATION 



INPUT/OUTPUT SECTION 

• 12 INPUT AND 12 OUTPUT CHANNELS 

• 10,000,000 WORDS PER SECOND MAXIMUM 
CHANNEL TRANSFER RATE 

• ERROR DETECTION AND INTERRUPT 



Figure 2-2. The CRAY-1 central processing unit 
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3 THE CRAY- 1 FORTRAN LANGUAGE 



THE CRAY-1 FORTRAN LANGUAGE 



3.1 GENERAL DESCRIPTION 

FORTRAN is a system of notation devised for easy and accurate computer 
program specification. As such, it is a language in which the clarity 
of a mathematically oriented grammar is readily learned and applied. 
Ordered sets of alphabetic, numeric, and special characters are used 
to construct FORTRAN statements which, in turn, are ordered to describe 
a computer program. FORTRAN permits computer program specification with 
little dependence upon the characteristics of the computer system to be 
used. 

This section progressively develops the means for program specification 
using the CRAY-1 FORTRAN language. The fundamentals of its notation and 
syntax are introduced first, then are used as a basis for progressing 
into the complete range of capabilities afforded by CRAY-1 FORTRAN. 

3.1.1 THE CRAY-1 FORTRAN COMPILER 

The CRAY-1 FORTRAN Compiler (CFT) converts statements in the FORTRAN 
language to the binary machine language of the CRAY-1 Computer. In so 
doing, CFT constructs machine-language instruction sequences that cause 
the full range of CRAY-1 features and capabilities to be applied during 
program execution. As long as the same standards of FORTRAN language 
expression are adhered to, FORTRAN compilers of other computer systems 
will accept and convert the same statements into machine-language 
instruction sequences for those systems. 

3.1.2 CONFORMANCE TO THE ANSI STANDARD 

Specifications for the CRAY-1 FORTRAN language are based upon standards 
established in 1966 by the American Standards Association and documented 
in the American National Standards Institute (ANSI) publication "ANSI 
FORTRAN X3. 9-1966". Extensions to these standards afford the CRAY-1 
FORTRAN language programmer a broader range of capabilities. Most 
have been developed to correspond to many of those proposed by the 
American National Standards Committee X3J3 as part of a new FORTRAN 
standard. Notes are included at appropriate points throughout this 
section identifying deviations from the 1966 ANSI Standard. 
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3.1.3 SYNTAX DESCRIPTION 

A conventional notation is used in this publication to describe the 
syntax of FORTRAN statement forms. It consists of ordered sequences 
of the following elements : 

• The square brackets ,L J , indicate the optional use of the items 
they enclose. 

• An italicized lower-case letter or letters, thus, identifies the 
use of a certain type of item. 

• Numbers, symbols, and upper-case letters (e.g., E+23) indicate 
their actual use. 

• The ellipsis, ... , indicates the optional use of the preceding 
item one or more times in succession. 



Except where specifically stated otherwise, blank characters are ignored 
and may be used to enhance readability. 

For example, 

PRINT /[, iolistl 

where / is a FORMAT statement identifier and 
■ioti-st is an I/O list 

describes the syntactical construct that begins with the letters "PRINT" 
followed by those symbols identifying a FORMAT statement identifier 
and, optionally, a comma and one or more sets of symbols identifying 
I/O list items separated by commas. The FORTRAN language statements 

PRINT 88 

PRINT 1234,A,B,C,X,Y,Z 

PRINT6, VALUE 

PRINT 0054, ALPHA, BETA, GAMMA, DELTA, ETCETERA 

thus comply with this form assuming the use of FORMAT statement 
identifiers and I/O list items is proper. 
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3.2 FUNDAMENTALS 

Many of the basic terms and concepts used throughout this section are 
introduced below. Words and phrases appearing in italics indicate 
their being defined at that point. 



3.2.1 NOTATION 

The FORTRAN language embodies a syntax described in the following 
paragraphs. Components of this notation are numbers and letters and 
the special characters identified in the character sets below. Certain 
sequences of these are called syntactic items and may be grouped into 
FORTRAN statements which, in turn, are ordered into program units. 



Character sets 

Two sets of characters are used in CRAY-1 FORTRAN language notation. 
Upper-case letters, digits, and certain special characters belong to the 
FORTRAN character set. All other characters representable in the CRAY-1 
computer belong to the auxiliary character set. Appendix A describes 
these characters and their internal codes. 

The FORTRAN character set - The FORTRAN character set consists of: the 
twenty-six upper-case tetters, A-Z; the ten digits, 0-9; and the fourteen 
special characters described in table 3-1. An alphanumeric character is 
any letter or digit. 

The internal code for each of these characters is described in Appendix A. 
The relative magnitudes of these character codes establishes their 
collation sequence. Note that digits precede letters in this collation 
sequence . 



The auxiliary character set - Appendix A contains the complete CRAY-1 set 
of characters and the codes used for the internal representation of each. 
Those characters not in the FORTRAN character set are members of the 
auxiliary character set and are of limited use. 

The ANSI FORTRAN Standard does not specify an auxiliary character set or a collation sequence. 



Sequences 

A sequence is a set of n elements ordered in a one-to-one correspondence 
with the ordinals 1,2, — ,n. An empty sequence contains no elements. 
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Table 3-1. Special characters 



Symbol 


Name 




Blank or space 


= 


Equals 


+ 


Plus 


- 


Minus or hyphen 


* 


Asterisk 


/ 


Slash 


( 


Left parenthesis 


) 


Right parenthesis 


/ 


Comma 


• 


Decimal point 


$ 


Dollar sign or currency symbol 


1 


Apostrophe 


II 


Quotation mark 


' ' : 


1 Colon 



The ANSI FORTRAN Standard does not provide for apostrophes, quotation marks, or colons- 



Syntactic items 

Syntactic items of the FORTRAN language are formed with sequences of 
FORTRAN character set elements, and include: 

• Constants , 

• Symbolic names, 

• Statement labels, 

• Keywords , and 

• Operators . 



Constants - A constant is a syntactic item representing an unvarying value. 
Several types of constants are illustrated below and are more fully 
described in 3.3,3. 



2240009 



3-4 



Examples : 



Representation 

1024 
10. E1 

1.5 

•FALSE. 

.TRUE. 

72. 

6HCRAY-1 

75.63D-2 

(6.1,-3.2) 



T YP e 



Value 



I nteger 


1024 


Real 


100 


Real 


1.5 


Logical 


false 


Logical 


true 


Real 


72 


Hollerith 


CRAY-1 


Double precision 


.7563 


Complex 


6.1+(- 



3.2-v^T) 



Symbolic names - A symbolic name declares or references a program unit, 
procedure, or value. It is composed of from one to eight alphanumeric 
characters the first of which must be a letter. Leading, trailing, and 
embedded blank characters are ignored. 

The ANSI FORTRAN Standard limits a symbolic name to a maximum of six characters, and does not provide for 
the symbolic name of constants. 



Examples : 



DATA0NE 

DATA1 

D A T A 1 



F293 


SIN ALPHA 


U 238 


TEST1234 


ARRAY TWO 


MAIN PROG 



Statement labels - A statement label uniquely identifies a statement in a 
program unit to permit its being referenced by other statements in the 
same program unit. A statement label is composed of from one to five digits. 
Leading zeros and leading, trailing, and embedded blank characters do not 
alter the identity of a statement label. They are counted as part of a 
five character maximum only when the statement label appears with the state- 
ment it identifies. 



Examples: 



123^5 
12 3 4 
1 2 345 
96 
8277 



6681 
470 
00673 
673 
2 2 
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Keywords - A keyword is a prespecified sequence of letters having special 
significance in FORTRAN language statements. Leading, trailing, and em- 
bedded blanks occurring in a keyword are ignored. Examples of keywords 
used in FORTRAN statements appear in table 3-11. The possible similarity 
of a keyword and a symbolic name poses no problem because of the context 
in which each is used. 



Operators - An operator is expressed as one or two special characters 
augmented, in certain cases, with letters. Leading, trailing or embedded 
blanks do not affect the identity of an operator. Operators are used to 
specify arithmetic , relational , and logical operations within program units . 



Examples: 










Representation 


Type 


Meaning 




+ 


Arithmetic 


Addition 




JL-L 


Arithmetic 


Exponentiation 




.AND. 


Logical 


Conjunction 




.OR. 


Logical 


Disjunction 




.EQ_. 


Relational 


Equal 




• GT. 


Relational 


Greater than 



Additional syntactic items - Certain special characters can be used in a 
manner that defines their being syntactic items. Their forms and uses 
will be described at appropriate points. Adjacent blank characters have 
no effect on their interpretation. 



Lists and list items 

A list is a sequence of syntactic items separated from each other by the 
special character comma. The syntactic items appearing in a list are called 
list items. Blank characters preceding and following list items do not 
affect their interpretation. 



Examples: 



A,B,C,D,E 701,55,100 

ARRAY1, VALUE2,X,ABC UN0,D0S,TRES 
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3.2.2 STATEMENTS 

A FORTRAN statement is a sequence of syntactic items beginning, in most 
cases, with a keyword. It serves as a fundamental component in a FORTRAN 
program specification by describing either the form of data and program 
elements or the actions to be taken by the program. A statement label 
may precede a statement, but is not a part of the statement itself. The 
type of a statement is indicated by the keyword it contains or by its 
form. Examples appear throughout 3.6. The total number of characters 
used to express a statement is limited to 1,320 and includes blank 
characters. Aside from this character-count limitation, leading, trailing, 
and embedded blank characters do not affect statement interpretation. 

A statement is classified as either an executable statement or a non- 
executable statement. An executable statement is one that specifies an 
action. A non-executable statement is an inactive descriptor of data or 
program form. 



3.2.3 THE FORTRAN CODING FORM 

A FORTRAN coding form is a convenience in expressing FORTRAN language 
notation and facilitates its transcription into punched cards or some other 
computer input medium. Figure 3-1 illustrates this form. 



FORTRAN coding form format 

Each horizontal row on the form provides 80 positions (or columns) for 
the specification of 80 characters from the character set. Only the 
leftmost 72 columns (columns 1 through 72) are used to specify a FORTRAN 
program. The content of the remaining eight columns is commonly used for 
identifying and sequencing punched cards but may be unused or used for 
other purposes. 

The first 6 columns have positional significance in FORTRAN and are 
delimited on the form by heavier vertical lines. 

All or part of a FORTRAN statement can be expressed in columns 7 through 
72 of the form. 
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to 
to 

o 
o 
o 



00 

I 

CO 



o 



Egmnnanzia 



FORTRAN Coding Form 



PROGRAM 


PROGRAMMER 


ROUTIN 


Ei 


DATE | PAGE OF 


NO. 


* 


FORTRAN STATEMENT 


seq.no. 
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Figure 3-1. FORTRAN coding form 



Lines 

A single row of information on a FORTRAN coding form is referred to as a 
line. A line contains a sequence of 72 characters. (Note that an unentered 
position of the row and an unpunched column of the card represent the 
special character "blank".) All notation required to describe a FORTRAN 
program is expressed as an ordered sequence of lines of which there are five 
types : 

• Comment 

• Initial 

• Continuation 
a Terminal 

• Compiler directive 

Comment lines - A line having the letter C or an asterisk in column one 
may be a comment line. The content of columns 2 through 72 of a comment 
line has no effect on the FORTRAN program being created. These columns 
typically contain descriptive commentary and are inserted before and after 
relevant lines of the program (See also "Compiler directive lines" below.) 



The ANSI FORTRAN Standard does not providelfor the use of an asterisk in column 1 to denote a comment line. 



Initial lines - The initial line expresses all or the initial part of a 
single FORTRAN statement in columns 7 through 72. It may have a state- 
ment label of five digits and/or blank characters in columns 1 through 5. 
An initial line has neither the letter C nor an asterisk in column 1, and 
must have either the digit or a blank character in column 6. A terminal 
line is a special form of initial line. 

Continuation lines ->■ One or more continuation lines may be used to extend 
the capacity of an initial line when expressing a single FORTRAN statement. 
A continuation line has neither the letter C nor an asterisk in column 1, 
has a character other than zero or blank in column 6, and contains a portion 
of a FORTRAN statement in columns 7 through 72. A sequence of one initial 
line followed by up to nineteen continuation lines may be used for a single 
FORTRAN statement. This sequence of lines may have any number of comment 
lines interspersed. The initial line of such a sequence must not appear to 
be a terminal line. 

Terminal lines - A single terminal line must be used as the last line of every 
program unit. A terminal line is a special form of initial line that com- 
pletely contains an END statement (i.e., the letters "E", "N", and "D" 
appearing in that order anywhere in columns 7 through 72) . 

Compiler directive lines - A line having the characters CDIR$ in columns 
1 through 5 is a compiler directive line and may be used to contain one or 
more compiler directives. These lines and the compiler directives they 
contain are described in Section 5. 

2240009 3-9 p 



3.2.4 THE EXECUTABLE PROGRAM 

An executable ■program is an ordered set of FORTRAN statements grouped into 
one or more program units. Certain program units are capable of referencing 
pre-established procedures. Thus, computer program specifications are 
established from two sources : 

o The FORTRAN statements comprising the executable program, and 

• Pre-established procedures referenced from certain of these 
FORTRAN statements. 

Figure 3-2 illustrates these program units, the procedures they reference, 
and the overall organization of these entities in the executable program. 



The ANSI FORTRAN Standard separately provides for basic external functions; CRAY-1 FORTRAN includes these 
in its set of intrinsic functions. The ANSI FORTRAN Standard categories of function procedure, subroutine pro- 
cedure, and external subroutine have also been eliminated. 



Program units 

The set of program units used in an executable program must include one 
main program and may also include one or more subprograms . 



The main program - An executable program must have one and only one 
main program. Execution of an executable program begins with its main 
program. The main program may reference none, one, or more than one 
procedure during its execution provided each is defined prior to main 
program initiation. 

The main program usually, but not necessarily, terminates the execution 
of an executable program. The first statement of a main program's 
specification may be a PROGRAM statement. The last line must contain 
an END statement. 

The ANSI FORTRAN Standard does not provide for the use of a PROGRAM statement. 

Subprograms - The two types of subprograms are: specification and 
procedure. Specification subprograms are non-executable; procedure 
subprograms are executable. 

Specification subprograms 

The only form of a specification subprogram is the block data 
subprogram. 

Block data subprograms - Block data subprograms associate data with 
a type, form, name, and initial value prior to executable program 
execution. The use of block data subprograms does not preclude 
other means by which an executable program might be provided data prior 
to its execution. Block data subprograms cannot contain any execut- 
able statements except the END statement. Its first statement must 
be a BLOCK DATA statement; the last line must contain an END statement. 
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PROGRAM UNITS 



SUBPROGRAMS 



SPECIFICATION 
SUBPROGRAMS 



PROCEDURE 
SUBPROGRAMS 



ACTUAL 
SPECIFICATIONS 

REFERENCED 
SPECIFICATIONS 



THE EXECUTABLE 
. . PROGRAM 



MAIN PROGRAM 



STATEMENT 
FUNCTIONS 



INTRINSIC 
FUNCTIONS 



BLOCK DATA 
SUBPROGRAMS 



SUBROUTINE 
SUBPROGRAMS 



NON-FORTRAN 
SUBROUTINE 
SUBPROGRAMS 



FUNCTION 
SUBPROGRAMS 



NON-FORTRAN 

FUNCTION 
SUBPROGRAMS 




SUBROUTINES 



EXTERNAL 
FUNCTIONS 



— J 



Figure 3-2. The executable program 
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Procedure subprograms 

Procedure subprograms are of two types; subroutine subprograms and 
function subprograms. Both types are executable, but differ in the 
manner by which they are defined and referenced. 

Subroutine subprograms - Subroutine subprograms establish a common set 
of executable code that can be referenced from a main program or a pro- 
cedure subprogram. The first statement must be a SUBROUTINE statement; 
the last line must contain an END statement. A subroutine subprogram must 
be referenced through use of a CALL statement in the referencing program 
unit. A subroutine subprogram is classified as a procedure as well as a 
program unit in the hierarchy of an executable program. 

Function subprograms - Function subprograms also establish a common set 
of executable code that can be referenced from a main program or a pro- 
cedure subprogram. The first line must contain a FUNCTION statement; the 
last line must contain an END statement. A function subprogram, unlike 
a subroutine subprogram, is referenced by the appearance of its identifier 
in certain types of statements. A function subprogram is classified as 
a procedure as well as a program unit in the hierarchy of an executable 
program. , 

Procedures 

Procedures are optional in an executable program and include statement 
functions, intrinsic functions, and external procedures. 

Statement functions - Statement functions can be specified within a main 
program, a function subprogram, or a subroutine subprogram. A given state- 
ment function can only be referenced from a statement within the same program 
unit containing its specification. 



Intrinsic functions - Numerous commonly-used operations called intrinsic 
functions have prespecified identities and functions. An intrinsic 
function may be reference by a main program or a procedure subprogram. 
The entire set of operations called for by the ANSI FORTRAN Standard is 
included. Appendix B summarizes this set. CRAY-1 FORTRAN also provides 
for utility procedures. These procedures are classified as intrinsic func- 
tions, are described in 3.6.12 and in Appendix C, and perform numerous 
utility operations not called for in the ANSI Standard. 



The ANSI FORTRAN Standard Basic External Functions are included in the CRAY-1 FORTRAN set of Intrinsic 
Functions. The ANSI FORTRAN Standard does not provide for Utility Procedures. 
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External procedures - An external procedure is named for its ability to 
be specified external to any other procedure referencing it. The two 
types of external procedure are subroutines and external functions. 



Subroutines 



Subroutines are of two types; the subroutine subprogram, and the 
non-FORTRAN subroutine subprogram. 



Subroutine subprograms - As stated earlier, the subroutine subprogram 
is categorized as both a program unit and a procedure. Its descrip- 
tion in both cases is the same. 

Non-FORTRAN subroutine subprograms - The non-FORTRAN subroutine 
subprogram is a set of executable code that functions the same as 
a subroutine subprogram. It is prepared by some means other than 
FORTRAN. Typically, the non-FORTRAN subroutine subprogram is 
written in CRAY-1 assembly language, in a high-order language other 
than FORTRAN, or in a version of FORTRAN not compatible with the 
one in use. Such are separately compiled or assembled and are 
available in binary form upon reference during program execution. 
(Appendix F describes the creation of non-FORTRAN subroutine sub- 
programs using CAL, the CRAY-1 Assembly Language.) 

External functions 

External functions are of two types; the function subprogram, and 
the non-FORTRAN function subprogram. 

Function subprograms - As stated earlier, the function subprogram 
is categorized as both a program unit as well as a procedure. 
Its description in both cases is the same. 



Non-FORTRAN function subprograms - The non-FORTRAN function 
subprogram is a set of executable code that functions the 
same as a function subprogram during execution of the executable 
program, but which is prepared by some means other than FORTRAN. 
The non-FORTRAN function subprogram is typically written in CRAY-1 
assembly language, in a high-order language other than FORTRAN, or 
in a version of FORTRAN not compatible with the one in use. Such 
are separately compiled or assembled and are available in binary 
form upon reference during program execution. (Appendix F describes 
the creation of non-FORTRAN function subprograms using CAL, the 
CRAY-1 Assembly Language.) 
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3.2.5 DATA REPRESENTATIONS 

The following are fundamentals of data representation and processing, 
complete description of data types, their specification, and other 
characteristics are further developed in 3.3. 



Data types 

The seven types of data that can be specified in CRAY-1 FORTRAN are: 

• Integer data, which are whole, signed values; 

• Real data, which are signed mixed-value approximations (whole 
number plus fraction) ; 

• Double-precision data, which are signed, mixed-value approximations 
extended to approximately twice the precision of real data; 

• Complex data, which approximate complex values as pairs of signed, 
mixed-value approximations (the first member of a pair for the real 
part, the second for the imaginary part) ; 

• Logical data, which represent the truth values "true" and "false"; 

• Boolean data, which are octal values representing the binary contents 
of CRAY-1 computer words; and 

• Hollerith data, which are sequences of characters. 

The AN SI FORTRAN Standard does not provide for Boolean data specification. 

Data specification 

Data are specified as constants in a FORTRAN program. The form in which 
a constant is expressed identifies the type of datum it represents, and 
is described in 3.3. 



Variables, arrays, array elements, and functions 

Data may be contained in entities known as variables, arrays, and array 
elements. A Variable or an array element contains a single datum. An 
array contains one or more array elements arranged into as many as seven 
dimensions. 

All data in an array are of the same type. A function creates a datum 
when referenced. 



The ANSI FORTRAN Standard permits a maximum of three dimensions in an array. 
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Definition 

During program execution, the content of a given variable or array element 
is either defined or undefined. A defined variable or array element 
contains a value. An undefined variable or array element does not contain 
a predictable value. Once defined, a variable or array element contains 
a specific value until it is undefined or is redefined with a different 
value. All variables and array elements are initially undefined and remain 
so until action prior to or during program execution defines them. Variables 
and array elements defined prior to program execution are known as being 
initially defined. Constants are always defined and are never redefined. 
A function's value is defined only at that point in program execution 
where it is required. 



Reference 

A constant, variable, array element, or function reference occurs when 
its symbolic name appears in a context where a value is required. A 
reference to a variable or array element provides the value currently 
contained by that entity without modifying that value. Reference to a 
constant provides its invariant value, which cannot be modified. Reference 
to a function causes a value to be defined. 



Storage 

A storage sequence is a sequence of storage units. A storage unit 
corresponds to a 64-bit CRAY-1 computer word. An integer, real, or 
logical datum occupies one storage unit; a double precision or complex 
datum occupies two storage units. Datum requiring more than one storage 
unit in a storage sequence occupies consecutive locations in memory. 

The ANSI FORTRAN Standard does not specify the relationship between storage units and computer words. 



The term storage sequence describes relationships that associate 
variables, array elements, arrays, and common blocks. 

Association 

Association occurs when a datum may be identified by different symbolic 
names or from different program units. 
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3.2.6 ORDER OF STATEMENTS AND LINES 

The first statement of a main program may be a PROGRAM statement. The 
first statement of a subprogram must be a FUNCTION, SUBROUTINE, or BLOCK 
DATA statement. 

Within a program unit permitting them: 

• FORMAT statements may appear anywhere, 

All specification statements must precede all DATA statements, 

statement definition function statements, and executable statements, 

• All statement definition function statements must precede all 
executable statements, and 

• DATA statements may appear anywhere after the specification 
statements . 

• Within the specification statements of a program unit, IMPLICIT 
statements must precede all specification statements other than 
PARAMETER statements. 

• A PARAMETER statement must precede all other statements containing 
the symbolic names of constants that it specifies. 

• The last line of a program unit must contain an END statement. 

Table 3-2 illustrates the required order of statements and lines for a 
program unit. Vertical lines delimit varieties of statements that may 
be interspersed. For example, FORMAT statements may be interspersed 
with PARAMETER, DATA, executable, and statement function definition state- 
ments. Horizontal lines delimit varieties of statements that must not be 
interspersed. For example, statement function definition statements must 
not be interspersed among executable statements. The top-to-bottom order 
indicates the first-to-last appearance of lines and statements in a program 
unit . Note that an END statement must appear in the last line of a program 
unit and cannot be followed by a comment line intended as a part of that 
same program unit. 
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Table 3-2. Required order of lines and statements 



Comment 

and 

compiler 

directive 

lines 



PROGRAM, FUNCTION, SUBROUTINE, or 
BLOCK DATA statement 



ENTRY 

and 

FORMAT 

statements 



PARAMETER 
statements'' 



DATA 
statements 



END statement 



IMPLICIT 
statements ^ 



Other specifi- 
cation state- 
ments 



Statement func- 
tion definition 
statements 



Other 

executable 

statements 



f Note the restrictions described for the interspersing of 
IMPLICIT and PARAMETER statements and for compiler direc- 
tive lines (see Section 5) . 



3.2.7 NORMAL EXECUTION SEQUENCE 

A normal execution sequence is an execution of executable statements in 
their order of appearance in a program unit. Executable program execution 
begins with the first executable statement of the main program. When a 
subprogram is referenced, execution begins with the first executable statement 
of that subprogram. When a subprogram entry is referenced, execution 
begins with the first executable statement following the ENTRY statement 
named in that reference. 

Statements that may alter the normal execution sequence are: 

• Unconditional, assigned, and computed GO TO, 

• Two- and three-branch arithmetic IF, 

• RETURN, 

• PAUSE, 

• STOP, 

• Indirect logical IF, 

• Direct logical IF statements containing any of the above forms, 
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• DO, 

• The terminal statement of a DO-loop, and 

• END . 



The ANSI FORTRAN Standard does not provide for a two-branch arithmetic IF statement, an indirect logical IF statement, 
or for a DO statement altering the normal execution sequence. The direct logical IF statement is identical to the logical IF 
statement described in the ANSI FORTRAN Standard. The three-branch arithmetic IF statement corresponds to the 
ANSI arithmetic IF statement. 



Normal execution sequence is not affected by the interspersing of non- 
executable statements or comment lines among executable statements. 

A procedure subprogram must not be referenced twice without the execution 
of a RETURN or END statement in that procedure. 
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3 . 3 DATA 

3.3.1 TYPES OF DATA 

The types of data are: 

• Integer, 

• Real , 

• Double precision, 

• Complex, 

• Logical, 

• Boolean, and 

• Hollerith. 

The specification and internal representation differs for each type. 
The ANSI FORTRAN Standard does not provide for Boolean data. 



3.3.2 DATA IDENTIFIERS 

The symbolic name of a constant, variable, array, array element, or 
function identifies its data type. Once a name is identified with a 
particular type, that type is implied for all references to that name. 

A constant, variable, array, external function or statement function 
may have its type specified by the appearance of its symbolic name in 
a type statement. Otherwise, the type is implied by the first letter 
of its name. A first letter of I, J, K, L, M, or N implies type integer; 
any other first letter implies type real. An IMPLICIT statement can be 
used to change implied typing. 

The data type of an array element is the same as the data type of the 
array within which it exists. An array name is the initial part of the 
names of each of its array elements. 

The data type of a function establishes the type of datum provided when 
the function is referenced in an expressions 

The name of an intrinsic function is (1) prespecified to agree with the 
type of datum provided, (2) cannot be retyped, and (3) is defined in 
Appendix B for each function. 

The correspondence between an external function name and the type of 
datum provided when it is referenced is established the same as for array 
and variable names. 
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The data type of a function subprogram can be specified by its name, in a 
type statement, or in the FUNCTION statement used to name the subprogram. 
An IMPLICIT statement within a function subprogram may affect the type of 
the subprogram name. 

A PARAMETER statement can assign a symbolic name to a constant. The 
initial letter of a constant name specifies its type. 



Examples : 



The symbol ic 

name . . . 

FL0AT6 

NUMBER! 

COUNTER 

INDEX4 

ARRAY 

MATRIX 

ARRAY (2,^0 

MATRIX(6, 100,2) 

CM (IN) 

METERS (YDS, FT) 



Identifies 
a(n) ... 

Constant 

Constant 

Variable 

Variable 

Array 

Array 

Array element 

Array element 

Function 

Function 



of 
type 



Real 
Integer 

Real 

Integer 

Real 

Integer 

Real 

Integer 

Real 

Integer 



if also appearing in 
the following statement : 

PARAMETER 
PARAMETER 



COMMON, DIMENSION, or REAL 
COMMON, DIMENSION, or INTEGER 



FUNCTION or statement function 
FUNCTION or statement function 



3.3.3 CONSTANTS 

Within an executable program, all constants expressed in the same form 
have the same invariant value. The value zero is considered neither 
positive nor negative. A signed zero has the same value as an unsigned 
zero. 

The form of the character sequence representing a constant specifies 
both its value and its data type. A PARAMETER statement allows a constant 
to be given a symbolic name. The first letter of a constant name specifies 
its type. 

Except within Hollerith constants, blank characters occurring in a constant 
have no effect on its value. 

Integer, real, double precision, and complex constants are avitkmetie 

constants . 
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s 



An unsigned constant is an arithmetic constant without a leading sign. A 
signed constant has a leading plus or minus. An optionally signed constant 
may be either signed or unsigned. Arithmetic constants are optionally 
signed except where otherwise specified. 

Integer constants 

An integer datum is always an exact representation of an integer value. 
It may assume a positive or negative integral value or a zero value. An 
integer datum occupies one numeric storage unit in a storage sequence. 

The form of an integer constant is an optional sign followed by a nonempty 
sequence of digits specifying a decimal integer value. 

Integer constants are represented in the CRAY-1 computer by integral 
binary values (I) in the range 

_ 2 63 £I< 2 63 
This is approximately the decimal range 

19 

0<|l|<10 . 

(A special form of integer constant is discussed in Section 5 under 
"Compiler directives".) 

See examples on page 3-22 . 

The ANSI FORTRAN Standard does not specify a range of values for integer constants. 

Real constants 



A real datum is an approximation to the value of a real number. It may 
assume a positive, negative, or zero value. A real datum occupies one 
numeric storage unit in a storage sequence. 

A real constant may be expressed as: 

e A basic real constant, 

• A basic real constant followed by a real exponent, or 

o An integer constant followed by a real exponent. 

The ANSI FORTRAN Standard does not provide for this use of an integer constant. 



A basic real constant consists of an optional sign, an integer part, a 
decimal point, and a fractional part, in that order. Both the integer 
part and the fractional part are sequences of digits representing integral 
and fractional decimal values, respectively. Either but not both of these 
parts may be omitted. A basic real constant may be written with more 
digits than can be used to approximate its value. 
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Examples : 





INTEGER 


REAL 


DOUBLE-PRECISION 


COMPLEX 


VALUE 


CONSTANT 


CONSTANT 


CONSTANT 


CONSTANT 


'.0 





0. 


OD 


(0..0.) 




692 


692. 

692.0 




(692., 0.) 
(692.0,0.) 






692E0 


692D0 


(692E0.0.) 


692 




692. EO 


692. DO 


(692.E0.0.) 






692. OEO 


692. ODO 


(692. OEO, 0.) 






6920E-1 


6920D-1 


(6920E-1.0.) 






• 69.2E3 


.692D3 


(.692E3.0.) 






6.92E2 


6.92D2 


(6.92E2.0.) 






6.128547472 




(6.128547472,0.) 






6.128547472E0 


6.128547472D0 


(6.128547472EO.O.) 


6.1 285471172 




6128547472E-9 


6128547472D-9 


(6128547472E-9.0.) 






6128547472. OE-9 


6128547472.00-9 


(6128547472.0E-9.0.) 






.61285A7472E1 


.6128547472D1 


(.6128547472E1.0.) 






612.85W72E-2 


612.8547472D-2 


(612.8547472E-2.0.) 










(0...875) 










(0..875E-3) 


.875-* c T~ 








(0...875EO) 
(0..8.75E-1) 
(0...000000875E6) 










(692... 875) 


692+. 875-v /r T 








(692EO, 0.875). 
(69.2E1.875E-3) 
(.692E3.875.E-3) 
(6.92E2.8.75E-D 



NOTE : The negative of a non-zero constant, exponent value, or complex 
portion is formed by preceding its expression with a minus (-) . 
The use of a plus (+) in this position or the absence of either 
sign denotes a positive. 
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The form of a veal exponent is the letter E followed by an optionally 
signed integer constant. A real exponent denotes that power of ten by 
which the basic real constant is to be multiplied during its interpreta- 
tion as a decimal value. The decimal point in a basic real constant is 
optional if there is no fractional part and if a real exponent is specified. 

Non-zero real constants are represented in the CRAY-1 computer by normalized 
floating-point binary values (R) in the range 

-8192 , . 8192 
2 •( 3 5)<|r|<2 >\h) 

and with 48 significant binary digits of precision. This approximates to 

the decimal range 

-2500 , , 25001 
10 <|r| <10 

and to 15 decimal digits of precision. 
See examples on page 3-22. 

The ANSI FORTRAN Standard does not specify a range of va lues for real constants. 

Double-precision constants 

A double-precision datum is an approximation to the value of a real number 
and has approximately twice the precision of a real datum. A double- 
precision datum may be positive, negative, or zero, and occupies two 
consecutive numeric storage units in a storage sequence. 

A double-pvecision constant may be expressed as: 

• A basic real constant followed by a double-precision exponent, or 

• An integer constant followed by a double-precision exponent. 

The ANSI FORTRAN Standard does not provide for this use of an integer constant. 

The form of a double-precision exponent is the letter D followed by an 
optionally signed integer constant. A double-precision exponent denotes 
that power of ten by which the basic real constant is multiplied during 
its interpretation as a decimal value. 

Non-zero double-precision constants are represented in the CRAY-1 computer 
by normalized floating-point binary values (D) in the range 

"8192 , . 8192 
2- -(^)<|d| < 2 -(h) 
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and with 96 significant binary digits of precision. This approximates 
to the decimal range 

-2500 , , 2500 
10 <|D|<10 

and to 29 decimal digits of precison. 
See examples on page 3-22. 

The ANSI FORTRAN Standard does not specify a range of values for double-precision constants. 



Complex constants 

A complex datum approximates the value of a complex number and is repre- 
sented by a pair of real data. The first member of the pair represents 
the real part and the second the imaginary part of the datum. A complex 
datum occupies two consecutive numeric storage units in a storage sequence; 
the first for the real part and the second for the imaginary part. 

The form of a complex constant is a left parenthesis followed by an ordered 
pair of optionally signed real constants separated by a comma, and followed 
by a right parenthesis. The first real constant of the pair is the real 
part of the complex constant and the second is the imaginary part. 

Non-zero complex constant components (where C=C r +i-C^) are represented in 
the CRAY-1 computer by two normalized floating-point binary values (C r ,C^) 
in the- range 

-8192 , 8192 

2 'CaJilc | , |C |<2 -Cs) 

and with 48 significant binary digits of precision for each. This approx- 
imates to the decimal range 

10-2500 < | Cr | / | c .| <10 2500 

and to 15 decimal digits of accuracy for each. 
See examples on page 3-22. 

The ANSI FORTRAN Standard does not specify a range of values for complex constant components. 
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Logical constants 

A logical datum may assume only the logical values true and false. A 
logical datum occupies one numeric storage unit in a storage sequence. 

The forms, values, and internal representations of a logical constant 
are: 



Form 


Value 


Internal 
representation 


.TRUE. or .T. 
.FALSE, or .F. 


true 
false 


a negative value 

a zero or positive value 



The ANSI FORTRAN Standard does not provide for the .T. or .F. form of logical constant. 

Boolean constants 

A Boolean datum is a non-numeric set of binary zeros and ones that accounts 
for the content of each bit position in a single storage unit (64-bit CRAY-1 
computer word) . 

The ANSI FORTRAN Standard does not provide for Boolean constants. 

The form of a Boolean constant is from 1 to 22 octal digits (0 through 7) 
followed by the letter B. When all 22 octal digits are used to express a 
Boolean constant, their binary equivalents directly establish the content 
of every bit position in the storage unit (64-bit word) . In this case, the 
first octal digit can only be a zero or one and specifies the content of the 
leftmost bit position (0) . Each successive octal digit specifies the contents 
of the next three bit positions until the last octal digit specifies the 
contents of the last three bit positions (61, 62 and 63) . Fewer than 22 
octal digits can be used to directly specify the contents of the right- 
most bit positions and to place zeros into those (leftmost) bit positions 
not directly specified. 



Examples : 



Boolean constant 



1 27^65331 25726761 137^58 

OB 
1 777777777777777777777B 

77740B 
00776B 



Internal representat ion(octal ) 
12746533125726761 137^5 

0000000000000000000000 
1777777777777777777777 
00000000000000000777^0 
0000000000000000000776 
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Hollerith constants 

A Hollerith datum is a sequence of any characters capable of internal 
representation as specified in Appendix A. Its length is the number of 
characters in the sequence, including blank characters. Each character 
occupies a position within the storage sequence identified by one of the 
numbers 1, 2, 3, ... indicating its placement from the left (position 1). 
A Hollerith datum must contain at least one character. 

A Hollerith constant is expressed in either of two forms. The first of 
these is specified as a non-zero integer constant followed by the letter 
H and as many characters as equal the value of the integer constant. Thus, 
the character sequence, ABC 12, would be represented as: 6HABC 12. The 
second form of Hollerith constant specification delimits the character 
sequence between a pair of apostrophes. The letter H may optionally follow 
the second delimiting apostrophe but has no effect on the constant. The 
character sequence, AB C12, could be represented 'AB C12' or 'AB C12'H. 
Two adjacent apostrophes appearing within the bounds of two delimiting 
apostrophes are interpreted and counted as a single apostrophe within the 
sequence. Thus, the character sequence, DON'T USE "*" would be specified 
as , DON ,, T USE "*"' or 'DON"T USE "*" 'H. 

The ANSI FORTRAN Standard does not provide for the apostrophe form of Hollerith constant expression. 

Each character of a Hollerith constant character sequence is represented 
internally by its unique eight-bit code (see Appendix A) with up to eight 
such codes contained in a single 64-bit CRAY-1 computer word. The codes 
corresponding to character positions one through eight of a Hollerith 
constant are sequentially represented from left to right in a CRAY-1 word. 
Successive groups of eight codes are similarly represented in as many 
successive CRAY-1 computer words. When the last position of a sequence 
is not an even multiple of eight, the unused portion of the computer word 
it occupies is to its right and contains up to seven blank character 
codes (040 8 ) . 



The ANSI FORTRAN Standard does not specify the characteristics of Hollerith constant placement in computer 
words, or the content of unused computer word portions. 



When the number of characters in a character sequence is fewer than eight, 
the single CRAY-1 computer word used can be caused to have its unused 
portion contain up to seven null character codes (000) . This is accom- 
plished by substituting the letter L for the letter H in the first form 
of Hollerith constant expression, or by suffixing the second apostrophe 
delimiter with the letter L in the second form. 



2240009 3-26 



When fewer than eight characters appear in a Hollerith constant, the 
single CRAY-1 computer word used can be caused to have its unused portion 
contain up to seven null character codes (000) to the left of the one or 
more codes representing the character sequence. This is accomplished by 
substituting the letter R for the letter H in the first form of Hollerith 
constant expression or by suffixing the second apostrophe delimiter with 
the letter R in the second form. 

The following Hollerith constant expressions all yield the same Hollerith 
constant and differ only in specifying the content and placement of the 
unused portion of the single CRAY-1 computer word containing the t constant: 



Hollerith 


















constant 


Internal 


representat 


ion 


(64- 


-bit 


CRAY-1 


computer word) 


Lt position ) 


(0-7 


8-15 


16-23 


24-31 32-39 


40-47 


48-55 56-63) 


6HCRAY-1 


C 


R 


A 


Y 




- 


1 


(040 8 ) (040 8 ) 


'CRAY-1' 


C 


R 


A 


Y 




- 


1 


(040 8 ) (040 8 ) 


1 CRAY-1 'H 


C 


R 


A 


Y 




- 


1 


(040 8 ) (040 8 ) 


6LCRAY-1 


C 


R 


A 


Y 




- 


1 


(000) (000) 


' CRAY-1' L 


C 


R 


A 


Y 




- 


1 


(000) (000) 


6RCRAY-1 


(000) 


(000) 


C 


R 




A 


Y 


1 


' CRAY-1 ' R 


(000) 


(000) 


C 


R 




A 


Y 


1 



The ANSI FORTRAN Standard does not provide for this use of the letters L or R or for the apostrophe form of Hollerith 
constant expression. 

A Hollerith constant is limited to a maximum of eight characters except 
when specified in a CALL or DATA statement. An all-zero computer word 
follows the last word containing a Hollerith constant specified as an 
actual argument in a function reference or in a CALL statement. 



The ANSI FORTRAN Standard does not provide for a limit on the number of characters per Hollerith constant, 
or for their use in other than CALL and DATA statements. 
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3.4 ARRAYS 

An array contains a sequence of data represented in an ordered set of 
array elements. Each array element provides storage for one datum of 
this sequence. An array name identifies an array and the type of datum 
it contains. An array element name is an array name suffixed by a sub- 
script that indicates the placement of an element in the array. In 
certain instances, an array name denotes its entire set of array elements. 
An element of an array can be designated only by its array element name. 
The name of an array and the names of its elements are local to the 
program unit in which each appears. 



3.4.1 ARRAY DECLARATORS 

An array declarator specifies an array's name and properties. An array 
can be specified only once within a given program unit. Array declarators 
are expressed as list items in certain non-executable FORTRAN statements. 

Form of an array declarator 

The form of an array declarator is 



a ( d [,cZ] i. . . ) 



where a is the name of the array, and 

d is a dimension declarator. 

The number of dimensions of an array is the number of dimension declarators 
appearing in its array declarator. The minimum number of dimensions is 
one and the maximum is seven. 



The ANSI FORTRAN Standard provides for a maximum of three dimensions. 



A dimension declarator specifies the number of array elements in one 
dimension of an array and is expressed as a non-zero, positive integer 
constant or variable. 

Kinds of array declarators 

Each array declarator is either a constant array declarator or an adjust- 
able array declarator. A constant array declarator is an array declarator 
in which each dimension declarator is expressed as an integer constant. An 
adjustable array declarator is an array declarator containing one or more 
dimension declarators expressed as variables. Adjustable array declarators 
are only specified in procedure subprograms. The arrays they describe are 
defined upon procedure subprogram entry with suitable arguments for 
establishing array association and dimensionality. 
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An array declarator is either a dummy array declarator or an actual array 
declarator. A dummy array declarator is a constant or adjustable array 
declarator that appears only in function or subroutine subprograms. A 
dummy array declarator is permitted in a DIMENSION or type statement but 
not in a COMMON statement. An array name used as a dummy array declarator 
in a function or subroutine subprogram must also appear as an argument in 
its FUNCTION, SUBROUTINE, or ENTRY statement. 

An actual array declarator is a constant array declarator having an array 
name that is also an actual argument. An actual array declarator is 
permitted in a DIMENSION, COMMON, or type statement. 



3.4.2 PROPERTIES OF AN ARRAY 

The data type of an array and of its array elements is identified by its 
name. The properties of an array specified by its array declarator are the 
number of its dimensions, the size of each dimension and, thereby, the 
number of array elements it contains. 

Data type of an array ■ and an array element 

The name of an array identifies the type of data it contains. This same 
name, when suffixed to become an array element name, implicitly identifies 
all elements of that array as being of the same data type as the array. 

Dimensionality of an array 

The number of dimensions of an array is called its dimensionality and is 
equal to the number of dimension declarators in the array declarator. 

Size of a dimension 

The size of a dimension is the non-zero value of its dimension declarator. 

Size of an array 

The size of an array is the number of elements in the array and is equal 
to the product of the sizes of all dimensions (or to the product of all 
dimension declarators) for that array. 

Technically, a maximum array size corresponding to 4,194,304 CRAY-1 computer 
words is provided for. Of significance to a practical maximum array size 
are considerations of memory capacity in the particular CRAY-1 being used, 
memory required for other than executable program and related data storage 
purposes, and the size of the executable program itself. 

The ANSI FORTRAN Standard does not specify a maximum for array size. 
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Array element order 

The subscript portion of an array element name has a value that identifies 
its placement in that array. Subscript values are ordinal and are in one- 
to-one correspondence with the storage units containing array elements. 
Thus, a subscript value of one corresponds to the first array element, 
two corresponds to the second, etc. The last element of the array has a 
subscript value equal to the size of the array. 

An array name used to designate an entire array implies the sequential 
specification of all subscripts and the processing of all elements in 
that order. 



Array storage sequence 

An array has a storage sequence defined by the storage sequence of its 
elements. The number of storage units (words) in an array is the product 
of the number of the elements in the array times the number of storage 
units required for each element. 



Examples: 



ONE DIMENSION 



2 

3 

k 

5 t 

6 



NAME: 

DATA TYPE: 

DECLARATOR: 

DIMENSIONALITY: 

DIMENSION 
SIZES: 

ARRAY SIZE: 



VECTOR 

REAL 

VECTOR (6) 

1 

6 ELEMENTS 
6 ELEMENTS 



1 
2 
3 

5 
6 
7 
8 
9 



TWO DIMENSIONS 



t 



THREE DIMENSIONS 



2 | 

t 



t ARRAY ELEMENT VECTQR (5) 
NAME : 



TWO DIM 

REAL 

TWO DIM (9,4) 

2 

9 ELEMENTS AND k ELEMENTS 

36 ELEMENTS 
TWO DIM (6,2) 



2 3 
MID 
INTEGER 
HID (7,3,3) 
3 

7 ELEMENTS, 

3 ELEMENTS, AND 

3 ELEMENTS 

63 ELEMENTS 
MID (3,2,1) 
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3.4.3 ARRAY ELEMENT NAMES 

The form of an array element name is 



a ( s [,s ] . . . ) 



where 


a 


C3 [,S ] 


... ) 


' 


s 



is the array name, 

is a subscript, and 

is a subscript expression. 

The number of subscript expressions must equal the number of dimension 
declarators in the array declarator for that array. 

Subscript expression 

A subscript expression yields a positive integer value when evaluated and 
may contain references to constants, variables, functions, and array elements 
of type integer. The evaluation of a subscript expression must not alter the 
value of other expressions within the same statement. 

The ANSI FORTRAN Standard does not provide for specifying integer functions, integer array elements, division or 
exponentiation in subscript expressions. 



Subscript values 

The value of a subscript Identifies an array element. A subscript value 
depends on the values of all subscript expressions in the subscript, and 
on the dimensions of the array as specified in the corresponding array 
declarator. If the subscript value is k, the fcth element of the array 
is identified. Table 3-3 describes the evaluation of a subscript for k. 

See example on page 3-33. 



3.4.4 DUMMY AND ACTUAL ARRAYS 

A dummy array is declared by a dummy array declarator. An actual array 
is declared by an actual array declarator.. A dummy array is permitted 
only in function or subroutine subprograms. Each array in a main program 
is an actual array specified by a constant array declarator. Actual 
arrays may also be specified in function and subroutine subprograms. 

In a reference to a subprogram containing a dummy array, the actual argu- 
ment corresponding to the dummy array name must be either an array name 
or an array element name. If it is an array name, the size of the dummy 
array must not exceed the size of the actual array. If the actua.1 argu- 
ment is an array element name with a subscript value of s in an array of 
size n, the size of the dummy array must not exceed n-s+1. Each dummy 
array must be associated through one or more levels of external procedure 
references with an actual array or an actual array element. 
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Table 3-3. Subscript values 



Dimen- 
sionality 


Dimension 
declarator (s) 


Subscript 


Subscript 
value (k) 


Maximum 
subscript value 


1 


A 


(a) 


a 


A 


2 


A,B 


(a,b) 


a+A- (b-1) 


A-B 


3 


A,B,C 


(a,b,c) 


a+A- (b-1) 
+A-B- (c-1) 


A-B-C 


4 


A,B,C,D 


(a,b,c,d) 


a+A* (b-1) 

+A-B- (c-1) 

+A-B-C- (d-1) 


A-B-C'D 


5 


A,B,C,D,E 


(a,b,c,d,e) 


a+A' (b-1) 

+A-B- (c-1) 

+A.B.C' (d-1) 

+A-B-C-D- (e-1) 


A-B-C-D-E 


6 


A,B,C,D,E,F (a 


,b,c,d,e,f) 


a+A- (b-1) 

+A-B- (c-1) 

+A-B-C- (d-1) 

+A-B-C-D- (e-1) 

i-B'C-D-E- (f-1) 


A-B-C-D-E-F 


7 


A,B,C,D,E,F,G (a,b 


,c,d,e,f ,g) 

+a 

+A-B 


a+A- (b-1) 

+A-B- (c-1) 

+A-B-C- (d-1) 

+A-B-C-D- (e-1) 

.-B-C-D-E- (f-d) 

•C-D-E-F- (g-1) 


A-B-C-D-E-F-G 



Notes: a,b,c,d,e,f and g are subscript expressions. 
A,B,C,D,E,F and G are dimension sizes. 

The ANSI FORTRAN Standard provides for no more than three dimensions. 
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Example : 



ARRAY STORAGE 
SEQUENCE 

ARRAY 
ARRAY ELEMENT NAME = ^ E + SUBSCRIPT 



SUBSCRIPT 



ARRAY CHARACTERISTICS 



NAME: 


X 


DATA TYPE: 


REAL 


DECLARATOR: 


X(5,3,2) 


DIMENSIONALITY: 


3 


DIMENSION SIZES: 


5 ELEMENTS, 




3 ELEMENTS, AND 




2 ELEMENTS 


ARRAY SIZE: 


30 ELEMENTS 



SUBSCRIPT VALUE FORMULA: 

SUBSCRIPT VALUE = a+5 • (b-1 )+5-3 • (c-1 ) 
WHERE a = FIRST SUBSCRIPT TERM, 

b = SECOND SUBSCRIPT TERM, AND 
c = THIRD SUBSCRIPT TERM. 



ARRAY CONCEPTUALIZATION 



ARRAY DECLARATOR: 
X(5,3,2) 

1 



X(1,1 



X(2,1 



X(3,1 



X(4,1 



X(5,1 



)3 



>* 



)5 



X(1, 1,2)16 



X(2,1,2) l 7 



X(3,1,2)' 18 



X(4,l,2)19 



X(5, 1,2)20 



X(1 ,2,1) 6 



X(2,2,1) 1 



X(3,2,1) 8 



X(M,1) 9 



X(5,2,1)10 



X(1, 2,2)21 



X(2, 2,2)22 



X(3,2,2) 2 3 



X(A,2,2)2A 



X(5,2,2)25 



X(1,3,D 11 



X(2,3,D 12 



X(3,3,D 1 3 



Xd.3,1> 14 



xes.s.D'S 



X(1,3,2)26 



X(2,3,2) 27 



X(3,3,2)28 



X(4, 3,2)29 



X(5,3,2)30 



ARRAY ELEMENT: 



ELEMENT NAME 



tSUBSCRIPT VALUE 



VALUE 1 
2 
3 
k 
5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
2k 
25 
26 
27 
28 
29 
30 



X(1,1,1) 


X(2,1,1) 


X(3,1,D 


X (4,1,1) 


X(5,1,D 


X(1,2,1) 


X(2,2,1) 


X(3,2,1) 


XCt.2,1) 


X(5,2,1) 


X(1 ,3,0 


X(2,3,D 


X(3,3,D 


XC»,3,1) 


X(5,3,D 


X(1,1,2) 


X(2,1,2) 


X(3,1,2) 


X(4,1,2) 


X(5,1,2) 


X(1 ,2,2) 


X(2,2,2) 


X(3,2,2) 


X(4,2,2) 


X(5,2,2) 


X(1,3,2) 


X(2,3,2) 


X(3,3,2) 


X(4,3,2) 


X(5,3,2) 
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3.4.5 ADJUSTABLE ARRAYS AND ADJUSTABLE DIMENSIONS 

An adjustable away is declared by an adjustable array declarator in 
which dimension declarators may be specified as variables. Such are 
called adjustable dimensions. The name of an adjustable array must 
appear in the dummy argument list of a subprogram. Its adjustable 
array declarators must be dummy array declarators. A variable used as 
a dimension declarator must be named in the dummy argument list contain- 
ing the array name or in a COMMON statement in the same subprogram. 



The ANSI FORTRAN Standard does not provide for a dimension declarator variable being named in a COMMON statement. 



Each actual argument corresponding to a dummy argument and each variable 
in common must be defined with an integer value before being used. The 
values of those dummy arguments or variables in common and any constants 
appearing in the dummy array declarator determine the size of the corres- 
ponding adjustable dimension for that execution of the subprogram. The 
sizes of the adjustable dimensions and of any constant dimensions appear- 
ing in an adjustable array declarator determine the number and order of 
elements in the array. Each reference to a subprogram may define different 
properties (size of dimensions, number of elements, element ordering) for 
each adjustable array in that subprogram. These properties depend on the 
values of any actual arguments and variables in common when the subpro- 
gram is referenced. 

Adjustable array properties of dimension number and array size do not 
change during subprogram execution. Variables defining an adjustable 
dimension may be redefined or become undefined during execution of the 
subprogram with no effect on these properties. 



3.4.6 USE OF ARRAY NAMES 

In a program unit, each appearance of an array name must be as part of an 
array element name except: 

• In a list of dummy arguments, 

• In a COMMON statement, 

• In a type- statement, 

• In an array declarator, 

e In an EQUIVALENCE statement, 

• In a DATA statement, 

• In the list of actual arguments in a reference to an external 
procedure , 

• In the list of an input/output statement, and 

& As the format identifier in an input/output statement. 
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3.5 EXPRESSIONS 

An expression calls for the evaluation of one or more operands and may 
include operators and parentheses to specify the manner and order of their 
concatenation in yielding a single value. Operands are constants, symbolic 
names of constants, variables, array elements and function references. The 
type of an operand is implicit to or defined for its name or form. Oper- 
ators specify the arithmetic, relational, or logical operations to be 
performed on these operands. Their sequence of presentation among operands 
combines with the use of parentheses to specify the desired manner and 
order of evaluation. 

The ANSI FORTRAN Standard does not provide for symbolic names of constants. 



Expressions are of five types: 

• Arithmetic, 

• Hollerith, 

• Relational, 
e Logical , and 
© Boolean. 



3.5.1 ARITHMETIC EXPRESSIONS 

An arithmetic expression specifies a numeric computation. Its evalua- 
tion produces a single numeric value. 

The simplest form of arithmetic expression is an unsigned constant or 
the symbolic name of a constant, variable, array element, or function. 
More complicated arithmetic expressions are formed by using one or more 
arithmetic operands with arithmetic operators and parentheses. Arith- 
metic operands must be of type integer, real, double precision, or 
complex. 
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Arithmetic operators 

The arithmetic operators are given in table 3-4. 

Table 3-4. Arithmetic operators 



Operator 


Operation 


** 


Exponentiation 


/ 


Division 


* 


Multiplication 


- 


Subtraction or negation 


+ 


Addition or identity 



Each arithmetic operator can operate on a pair of operands and is written 
between them. Additionally, either of the operators + and - can operate 
on a single operand when it precedes that operand. 

Form and interpretation of arithmetic expressions 

The interpretation of expressions formed with each arithmetic operator 
is shown in table 3-5. (X and Y are operands.) 

Table 3-5. Interpretation of operators in expressions 



Use of operator 


Interpretation 


X**Y 


Exponentiate X to the power Y 


X/Y 


Divide X by Y 




X*Y 


Multiply X by Y 




X-Y 


Subtract Y from X 




-Y 


Negate Y 




X+Y 


Add X to Y 




+Y 


(Same as Y) 





The interpretation of a division may depend on the data types of the 
operands . 

A precedence among arithmetic operators determines the order in which 
operands are to be combined (unless changed by the use of parentheses) 
This precedence is shown in table 3^6. 
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Table 3-6. Precedence of arithmetic operators 



Operator 


Precedence 


** 

* and / 
+ and - 


Highest 

Intermediate 

Lowest 



For example, in the expression 
-A ** 2 

the exponentiation operator (**) has precedence over the negation operator 
(-) . Therefore, the operands of the exponentiation operator are combined, 
then used as the operand of the negation operator. Thus, the interpretation 
of the above expression is the same as the mathematical interpretation of 
the expression 

-(A**2) . 

Arithmetic operands are: 

• Primaries 

• Factors , 

• Terms , and 

• Arithmetic expressions. 

The following describes the forms of combining operands and operators in 
arithmetic expressions. 

Primaries are: 

• Unsigned arithmetic constants, 

• Symbolic names of arithmetic constants, 

• Variable references, 

• Array element references, 
Function references, and 

• Arithmetic expressions enclosed in parentheses. 
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Examples : 



PRIMARY 

23D9 
KVALUE 

C0UNTER8 

I MAG (3,52,75) 

EVAL(A,B,C) 



DESCRIPTION 

Unsigned double-precision constant 

Integer constant name if named in a 
PARAMETER statement 

Real variable name 

Complex array element name if declared 
in a COMPLEX statement 

Real function name if declared in a 
FUNCTION or statement function statement 



(arithmetic expression) Parenthesized arithmetic expression 



The forms of a factor are: 
• primary 



• primary 



factor 



Thus, a factor is a sequence of one or more primaries with its elements 
separated by the exponentiation operator. The second form indicates that 
in interpreting a factor containing two or more exponentiation operators, 
the primaries must be combined from right to left. For example, the factor 

2**3**2 
has the same interpretation as the factor 

2** (3**2) . 
The forms of a term are: 
o factor 

• term / factor 

• term * factor 

Thus a term is a factor or a sequence of factors with its elements 
separated by a multiplication or a division operator. The last two forms 
indicate that the factors are combined from left to right in interpreting 
a term containing two or more multiplication or division operators. 
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The forms of an arithmetic expression are: 



term 

+ term 

- term 

arithmetic expression + term 

arithmetic expression - term 



Thus an arithmetic expression is a term or a sequence of terms with its 
elements separated by an addition (+) or a subtraction (-) operator. 
The first term in an arithmetic expression may be preceded by an iden- 
tity (+) or negation (-) operator. The last two forms imply that .terms 
are combined from left to right in interpreting an arithmetic expres- 
sion containing two or more addition or subtraction operators. 

These formation rules do not permit expressions containing two consec- 
utive arithmetic operators such as A**-B or A+-B. However, expressions 
such as A** (-B) and A+(-B) are permitted. 
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Examples : 

PRIMARIES FACTORS ! TERMS ARITHMETIC EXPRESSIONS 



CON CON CON 



CON**5 CON**5 



TBL(7,10) TBL(7,10) TBL(7,10) 



5 


+5 


-5 


CON 


+CON 


-CON 


5+CON 


CON-5 


CON**5 


+CON**5 


-CON* * 5 


5+CON-CON**5 


-C0N**5+5 


TBL(7,10) 


+TBL(7,10) 


-TBL(7,10) 



CON**5/TBL(7,10) CON**5/TBL(7,10) 
+C0N**5/TBL(7,10) 
-C0N**5/TBI_(7,10) 

CON**5*TBL (7 , 1 0) C0N**5*TBL (7 , 1 0) 
+C0N**5*TBL(7,10) 
-CON**5*TBL(7,10) 

C0N**5/TBL(7,10)+C0N 
-C0N**5*TBL (7,10) -TBL (7,10) 
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Type and interpretation of arithmetic expressions 

The form of a constant determines its data type. The data type of a 
named constant, variable, array element, or function reference is deter- 
mined by its name. The data type of an arithmetic expression containing 
one or more arithmetic operators is determined from the data types of 
the operands. 

Integer expressions, real expressions, double-precision expressions , and 
complex expressions are arithmetic expressions having values of type 
integer, real, double precision, and complex, respectively. 

When a + or - operates on a single operand, the data type of the result- 
ing expression is the same as the data type of the operand. 

The data types of arithmetic expressions are given in table 3-7 . In 
this table, each letter designates the type of operand or result as 
integer (I) , real (R) , double precision (D) , or complex (C) . 

To use the table, locate the types of the first and second operands in 
the first and second columns, respectively. The third column contains 
the type of the expression formed when these operands are processed by 
an arithmetic operator or when there is only one operand in the expres- 
sion. The remaining columns of the table relate to the possible re- 
typing of the value of these expressions upon assignment to variables 
and array elements of different types. 

For example, using the integer variable I with the double-precision array 
element D (1,2,3) in the expression 

D(l,2,3) * I 

yields a result of type double precision as specified in the ninth row 

of table 3-7. 

Except for a value raised to an integer power, table 3-7 specifies that 
if two operands are of different types, the one differing in type from the 
prescribed result is first converted to the type of the result, then the 
concatenation called for by the operator is effected. When a primary of 
real, double-precision, or complex type is raised to an integer power, the 
integer operand is not converted. 

The ANSI FORTRAN Standard relationships are a subset of those illustrated in table 3-7. 
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Table 3-7. Arithmetic operand, expression, and result 

typing relationships 



u 1 


j 


INTEGER 


REAL 


DOUBLE 
PRECISION 


COMPLEX 


(x) © m 


V n v t 


I 


i 


i 


; i • 


(I) 


(I) 


(I) 


I 


R 


R 


(R) 


R 


(R) 


(R) 


I 


D 


D 


(D) 


(D) 


D 


(D) 


I 


C 


C 


(C) 


(C) 


(Q 


C ' 


R 


I 


R 


(R) 


R 


(R) 


(R) 


R 


R 


R 


(R) 




(R) 


(R) 


R 


D 


D 


(D) 


(D) 


D 


(D) 


R 


C 


C 


(C) 


(C) 


(C) 


c 


D 


I 


D 


(D) 


(D) 


D 


(D) 


D 


R' 


D 


(D) 


(D) 


D 


(D) 


D 


D 


D 


(D) 


(D) 


'■&ZVwsgw&i&i^$ffiW$ 


(D) 


D 


C 


t 


t 


t 


t 


t 


C 


I 


C 


(C) 


(C) 


(C) 


C 


C 


R 


C 


(C) 


(C) 


(C) 


c 


C 


D 


f 


t 


+ 


t 


t 


C 


C 


c 


(C) 


(C) 


(C) 




....■:.:. '.■£*.._ 


Legend - 

x,y 
© 


Arithmetic operands 
Arithmetic operator 
Arithmetic expression or single arithmetic operant: 


1 

in type. 


|x©y 


z 

,i,,L, 


( 
1 


Arithmetic resu 
Conversion requ. 
to conversion r 
Prohibited 


It 

ired before ass 
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Lt. 
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The type and interpretation of an expression that consists of an operator 
operating on either a single operand or a pair of operands are independent 
of the context in which the expression appears. In particular, the type 
and interpretation of such an expression are independent of the type of 
any other operand of any larger expression in which it appears. 

Integer quotients 

An -integer quotient is the integer portion of a mathematical quotient 
having an integral divisor and dividend. For example, the expression 
-5/2 yields an integer quotient of -2 . 

Type conversion 

Type conversion of operands may occur during an expression's evaluation 
or when the results of an expression's evaluation are to be stored into 
a variable or array element. Type conversion may be based upon the 
following two operations : 

(a) Integer to real conversion creates a real value from an integer 
value. The maximum absolute value of the integer must be less 
than 2 1 * 6 . There is no warning if the value exceeds this range. 

(b) Real to integer conversion creates a 64-bit integer value from 
a real value. The maximum absolute value of the number being 
converted must be less than 2 46 . The fractional part is trun- 
cated. There is no warning if the value exceeds the range. 

Zero values are of identical form in both types of data and do not 
require conversion. 

Type integer - Type integer conversion to: 

o Type real occurs as described in (a) above. 

o Type double precision occurs as described in (a) above but with 
48 binary zeros added to extend the precision. 

• Type complex occurs as described in (a) above. The result 
becomes the real portion of the complex value and zero is 
established as the imaginary portion. 

Type real - Type real conversion to: 

e Type integer occurs as described in (b) above. 

• Type double precision is accomplished by extending the preci- 
sion of the real value through the addition of 48 binary zeros . 

© Type complex is accomplished by establishing the real value as 
the real portion of the complex value and by establishing zero 
in the imaginary portion. 

Type double precision - Type double precision conversion to: 

6 3 

e Type integer creates a 64-bit integer value of less than 2 
from the integral portion of the double precision value. Any 
fractional portion is lost and no rounding occurs. 
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• Type real is accomplished by eliminating the least significant 
48 bits of the double-precision value and establishing the 
result as the real value. No rounding occurs. 

• Type complex is accomplished by eliminating the least signifi- 
cant 48 bits of the double-precision value, establishing the 
result as the real portion of the complex value, and establishing 
zero as the imaginary portion of the complex value. No rounding 
occurs . 

Type complex - Type complex conversion to: 

• Type integer is accomplished by converting the real portion 
of the complex value as described for the real value in (b) 
above . 

• Type real is accomplished by establishing the real portion of 
the complex value as the real value. 

• Type double precision is accomplished by extending the precision 
of the real portion of the complex value through the addition of 
48 binary zeros. 



3.5.2 HOLLERITH EXPRESSIONS 

HoZler^tth expressions contain no operators and only a single operand. A 
Hollerith expression is evaluated to yield a sequence of characters. Its 
value is that sequence. The forms of a Hollerith expression appear below: 



A Hollerith 


constant 






The 


name 


of 


a variable 


containing a Hollerith datum 




The 


name 


of 


an array element containing a Hollerith 


datum 


The 


name 


of 


a function 


that provides a Hollerith datum 


wher 


i referenced 







A Hollerith constant comprising a Hollerith expression is limited to 
eight characters. 

The data type of the name referencing a variable or array element con- 
taining a Hollerith datum may affect its evaluation during program execu- 
tion. A variable or array element of type integer or real contains eight 
Hollerith characters. A variable or array element of type double precision 
or complex contains eight characters in its first storage unit (computer 
word) and may contain the value zero or an additional eight characters in 
its second. A variable or array element of type logical cannot contain 
Hollerith characters. 
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A Hollerith datum provided when a function is referenced contains as many 
characters as a variable or array element of corresponding type. 



3.5.3 RELATIONAL EXPRESSIONS 

A relational expression compares the values of two arithmetic or Hollerith 
expressions, producing a result of type logical with a value of true or 
false. 

Relational expressions can appear within logical expressions. 

Relational operators 

The relational operators are shown in table 3-8- 



Table 3-8. Relational operators 



Operator 


Operation (comparison) 


.LT. 


Less than 


.LE. 


Less than or equal to 


.EQ. 


Equal to 


.NE. 


Not equal to 


.GE. 


Greater than or equal to 


.GT. 


Greater than 



Arithmetic relational expressions 

The form of an aritlnmetio relational expression is 



S j relop e 2 



I 



where e\ and e^ are each integer, real, double-precision, or complex 

expre s s ions , and 

relop is a relational operator. 

A complex expression is permitted only when the relational operator is 
•EQ. or .NE. 

The ANSI FORTRAN Standard does not provide for relational expressions containing complex expressions. 



An arithmetic relational expression is interpreted as the logical value 
true if the values of the expressions satisfy the relation specified by 
the operator; false if they do not. 



2240009 



3-45 



If the two arithmetic expressions are of different types, the types of 
the operands are converted as if the expression were 

((e )-(e )) relov 

1 2 
(See table 3-7.) 

Examples : 

INDEX.EO..ENDVALU 
J(1,6,6)*C0S(ALPHA/10.).GT.Z 

A.LE.B 

3.1 2 »15927.LT.(22./7.) 

CMPLXM.NE.COMPLXN 

Hollerith relational expressions 

The form of a Hollerith relational expression is 



e\ relop ez 



where e\ and e<i are Hollerith expressions, and 
veloip is a relational operator. 

A Hollerith relational expression is interpreted as the logical value 
true if the values of the operands satisfy the relation specified by the 
operator; false if they do not. 

The Hollerith expression e is considered less than e 2 if its value pre- 
cedes the value of e z in the collating sequence or is considered greater 
if its value follows the value of e 2 in the collating sequence. If the 
operands are of unequal length, the shorter operand is considered as if 
it were extended on the right with blanks to the length of the longer 
operand . 

Examples : 

The following are evaluated as true if the integer variable LOCK 
contains the Hollerith characters K, E, and Y in that order and 
left justified with five trailing blank character codes: 

3HKEY.EQ.L0CK 
1 KEY'. EQ_. LOCK 
LOCK. EO.. LOCK 
' KEY T.GT. LOCK 
■KEYO'H.GT.LOCK 
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3.5.4 LOGICAL EXPRESSIONS 

A logical expression expresses a logical computation. Evaluation of a 
logical expression produces a result of type logical with a value of 
true or false. 

The simplest form of a logical expression is the specification of a: 

e Logical constant, 

• Logical constant name, 

• Logical variable reference, 

• Logical array element reference, 
o Logical function reference, or 

• Relational expression. 

More complicated logical expressions are formed by using one or more 
logical operands with logical operators and parentheses. 



Logical operators 

Table 3-9 presents the logical operators and their order of precedence. 

Table 3-9. Logical operators 



Operator 


Operation 


Precedence 


.NOT. or .N. 


Logical negation 


Highest 


.AND. or .A. 


Logical conjunction 


Higher 


. OR . or . . 


Logical inclusive disjunction 


Lower 


■ .XOR. or .X. 
.NEQV. 


Logical exclusive disjunction or 
Logical non-equivalence 


Lowest 


• EQV. 


Logical equivalence 



The ANSI FORTRAN Standard does not provide for .XOR., .EQV., .NEQV.. .N., .A., .P., or .X. . 

Note that the logical operators .XOR., .X., and .NEQV. perform the same 
logical operation. 
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Form and interpretation of logical expressions 

A set of formation rules establishes the interpretation of a logical 
expression containing two or more logical operators. The precedence 
among the logical operators determines the order in which they are 
to be combined (unless changed by the use of parentheses) . For example, 
in the expression 

A .OR. B .AND. C 

the .AND. operator has higher precedence than the .OR. operator. There- 
fore, the interpretation is the same as the interpretation of 

A .OR. (B .AND. C) 

Logical operands are: 

• Logical primaries, 

• Logical factors, 

• Logical terms, 

• Logical disjuncts, and 

• Logical expressions. 

The following paragraphs describe the forms of combining operands and 
operators in logical expressions. 

Logical primaries are: 

• Logical constants, 

• Symbolic names of logical constants, 

• Logical variable references, 

• Logical array element references, 

• Logical function references, 

• Relational expressions, and 

• Logical expressions enclosed in parentheses. 

The forms of a logical factor are: 

• [\ N0T '-] logical primary 
« L- N -J logical primary 

The forms of a logical term are: 

• |_logical term .AND. J logical factor 
e Llogical term .A.J logical factor 
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Thus, a logical term is a sequence of logical factors separated by an 
.AND. or .A. operator. The form indicates that in interpreting a logical 
term containing two or more .AND. or .A. operators, the logical factors 
are combined from left to right. 

The forms of a logical disjunct are: 

• Elogical disjunct .OR.] logical term 
« [[logical disjunct .O.] logical term 

A logical disjunct is, therefore, a sequence of logical terms separated 
by an .OR. or .0. operator. The form indicates that in interpreting a 
logical disjunct containing two or more .OR. or .0. operators, the logical 
terms are combined from left to right. 



The forms of a logical expression are: 



[logical 


expression 


.XOR.] 


logical 


disjunct 


[logical 


expression 


.x.j 


logical 


disjunct 


[logical 


expression 


.EQV.] " 


1 logical 


disjunct 


[logical 


expression 


.NEQV.] 


logical 


disjunct 



A logical expression is, therefore, a sequence of logical disjuncts 
separated by .XOR., .X., .EQV., or .NEQV. operators. These forms indicate 
that in interpreting a logical expression containing two or more .XOR. , 
•X., .EQV., and/or .NEQV. operators, the logical disjuncts are combined 
from left to right. 

Note that these forms allow the logical operator .NOT. to follow 
immediately after any other logical operator. For example, the logical 
term 

LOGICALX .AND. .NOT. LOGICALY 
is permitted. 

Values of logical factors, terms, disjuncts, and expressions 

The value of a logical factor involving .NOT. or .N. is shown below: 



X 


.NOT.X 
.N. X 


true 
false 


false 
true 
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The value of a logical term involving .AND. or .A. is shown below: 



_. 




X x .AND. X 2 


Xl 


X 2 


Xi .A. X 2 


true 


true 


true 


true 


false 


false 


false 


true 


false 


false 


false 


false 



The value of a logical disjunct involving .OR. or .0. is shown below: 



Xl 


X 2 


X X .OR. X 2 
x 1 .0. x 2 


true 
true 
false 
false 


true 
false 
true 
false 


true 
true 
true 
false 



The values of logical expressions involving .XOR., .X. , .EQV., and .NEQV. 
are shown below: 



Xl 


X 2 


X] .XOR. X 2 
Xi .X. X 2 


Xi .EQV. X 2 


Xi .NEQV. 


X 2 


true 


true 


false 


true 


false 




true 


false 


true 


false 


true 




false 


true 


true 


false 


true 




false 


false 


false 


true 


false 





Note that the logical operators .XOR., .X., and .NEQV. perform identical 
logical operations. 
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3.5.5 BOOLEAN EXPRESSIONS 



The ANSI FORTRAN Standard does not provide for Boolean expressions. 



Boolean expressions contain no operators and only a single operand. A 
Boolean expression is evaluated to yield a string of 64 binary digits 
representative of bit positions in a storage unit (64-bit CRAY-1 computer 
word) . The forms of a Boolean expression appear below: 



A Boolean constant 

The name of a variable containing a Boolean datum 

The name of an array element containing a Boolean datum 

The name 'of a function that provides a Boolean datum 
when referenced 



Boolean expressions may be combined with expressions of other types by 
using arithmetic, relational, and logical. operators. A Boolean datum 
is never converted to a different type. Evaluation of an arithmetic or 
relational operator processes a Boolean expression with no type conver- 
sion, but as though it were of integer type. 

A logical operator processing a Boolean expression performs a bit-by- 
bit (masking) operation. The result of such operations may be of type 
integer, real, logical or Boolean depending on other operands in the 
expression. The values of logical factors, terms and expressions 
described in 3.5.4 apply, but with results of binary one and zero 
corresponding to the logical results of true and false, respectively, 
and in each of 64 bit positions. These values are summarized in the 
chart below: 



Xl 


x 2 


.NOT.Xi 
.N.Xi 


Xi.AND.X 2 
X!.A.X 2 


X!.OR.X 2 
X!.O.X 2 


X!.X0R.X 2 
Xx.X.X 2 


Xi.EQV.X 2 


Xi.NEQV.X 2 


1100 


1010 


0011 


1000 


1110 


0110 


1001 


0110 



3.5.6 PRECEDENCE OF ALL OPERATORS 

The foregoing has established precedences within groups of arithmetic and 
logical operators. Relational operators have no precedence within their 
own group. Precedences among all types of operators are presented in table 
3-10. 
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Table 3-10. Precedence among all operators 



Operator 


Precedence 


Arithmetic 
Relational 
Logical 


Highest 

Intermediate 

Lowest 



An expression may contain more than one kind of operator. For example, 
the logical expression 

L .OR. A + B .GE. C 

where A, B, and C are of type real and L is type logical, contains an 
arithmetic operator, a relational operator, and a logical operator. This 
expression would be interpreted the same as the expression 

L .OR. ( (A + B) .GE. C) 



3.5.7 SUMMARY OF RULES OF INTERPRETATION 

The order in which primaries are combined using operators is determined 
by the: 

• Use of parentheses, 

• Precedence of operators, 

• Right- to-left interpretation of exponentiations in a factor, 

• Left-to-right interpretation of multiplications and divisions 
in a term, 

• Left-to-right interpretation of additions and subtractions in 
an arithmetic expression, 

• Left- to-right interpretation of conjunctions in a logical or 
Boolean term, 

• Left-to-right interpretation of inclusive disjunctions in a 
logical or Boolean disjunct, and 

• Left- to-right interpretation of exclusive disjunctions, equi- 
valences and non-equivalences in a logical or Boolean 
expression. 

3.5.8 EVALUATION OF EXPRESSIONS 

Any variable, array element, or function referenced as an operand in an 
expression must be defined at the time the reference is executed. Any 
names of constants must have been established in a PARAMETER statement 
preceding the statement of first reference. 
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Any arithmetic operation whose result cannot be defined mathematically 
produces unpredictable results in an executable program. Examples are 
dividing by zero, raising zero to a zero or negative power, and raising 
a negative value to a non- integer power. 

The execution of a function reference in a statement must not alter the 
value of any other entity within the same statement. Nor may it alter 
the value of any entity in common that affects the value of any other 
function reference in that same statement. If a function reference in a 
statement causes definition of an actual argument of the function, that 
argument or any associated entities must not appear elsewhere in the same 
statement. For example, in the statements 

A(I) = F(I) and 

Y = G(X) + X 

where F and G are functions, unpredictable results occur when the 
reference to F defines I or the reference to G defines X. 

The data type of an expression in which a function reference appears 
neither affects nor is affected by the evaluation of the actual arguments 
of the function. 

The data type of an expression in which an array element is referenced 
neither affects nor is affected by the evaluation of the subscript 

There are certain conditions under which evaluation of an expression may 
differ from evaluation according to the interpretation rules stated thus 
far. These are described in the following paragraphs. 

Order of evaluation of functions 



The order of evaluation of multiple function references within a single 
statement is fixed only within a direct logical IF statement and within 
nested function references. 



Example; 



In the statement IF (F(Y))A=F(Y) where F is a function name, 
the function reference in the conditional statement A=F(Y) 
is evaluated last. 

In the statement A=F(G(X)) where F and G are functions, G 
is evaluated first. 
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In other statements that contain more than one function reference, the 
value provided by each function reference may be unpredictably affected 
by the order in which the other function references are evaluated. 

Example : 

In the statement A=F(G(H(X) ) ,E(Y) ) where E, F, G, and H are functions 
H is evaluated before G, and E and G (and H) are evaluated before F, 
but H is not necessarily evaluated before E. 



Parentheses and expressions 

Any parenthesized expression is treated as an entity. For example, in 
evaluating the expression A* (B*C) , the product of B and C is evaluated 
and then multiplied by A. Parenthesized expressions may contain one or 
more parenthesized expressions, each of which may contain one or more 
parenthesized expressions, etc. This nesting of parenthesized expressions 
can be specified to 63 levels. 

The ANSI FORTRAN Standard does not limit the number of levels of nested parentheses. 



Evaluation of arithmetic expressions 

The rules for the form and interpretation of arithmetic expressions 
(3.5.1) describe the interpretation of an arithmetic expression. 

Two arithmetic expressions are mathematically equivalent if, for all 
possible values of their primaries, their mathematical values are equal. 
However, mathematically equivalent arithmetic expressions may produce 
different computational results. 

The mathematical definition of integer division is described in 3.5.1. 
The difference between the value of the expression 5/2 and 5./2. is 
mathematical and is not a computational difference. The difference between 
I 5./10. and 5.*.1 is computational. 

In addition to parentheses required for the desired interpretation, other 
parentheses may be included to control the magnitude and accuracy of 
intermediate values developed during the evaluation of an expression. 
For example, in the expression 

A+(B-C) 

the term (B-C) is evaluated and then added to A. Including parentheses 
could change the mathematical value . For example , the two expressions : 

A*I/J 
A*(I/J) 

may have different mathematical values if I and J are integer factors 
and if A is real. 
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Evaluation of Hollerith expressions 

The rules of 3.5.2 describe the interpretation of Hollerith expressions. 
Two Hollerith expressions are equivalent if their values are equal for all 
possible values of their specification. 

Evaluation of relational expressions 

The rules of 3.5.3 describe the interpretation of relational expressions. 
Two relational expressions are relationally equivalent if their logical 
values are equal for all possible values of their primaries. 

Evaluation of logical expressions 

The rules of 3.5.4 describe the interpretation of a logical expression. 
Two logical expressions are logically equivalent if their values are 
equal for all possible values of their primaries. 

Evaluation of Boolean expressions 

The rules of 3.5.5 and 3.5.4 describe the interpretation of a Boolean 
expression. Two Boolean expressions are equivalent if their values are 
equal for all possible values of their primaries. 
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3.6 STATEMENTS 

3.6.1 STATEMENT CLASSIFICATION 

Every statement is classified as either executable or non-executable. 

An executable statement specifies an action. When compiled with other 
executable statements, an execution sequence is produced. 

A non-executable statement: 

• Contains input/output editing information, 

• Specifies statement functions, 

• Classifies program units, or 

• Specifies the characteristics, arrangement, and initial 
values of data. 

A non-executable statement forms no execution sequence. Statement labels 
associated with non-executable statements must not be referenced to 
control the execution sequence. 

Statements are recognized by keyword or form as executable or non- 
executable (see table 3-11) . 

Any statement of either classification may be identified with a statement 
label which must be unique among all statement labels used in that program 
unit. . 

3.6.2 DATA SPECIFICATION 

The kinds of specification statements are: 

• DIMENSION; 

• EQUIVALENCE; 

• COMMON; 

• INTEGER, REAL, DOUBLE PRECISION, DOUBLE, COMPLEX, and LOGICAL 
type statements; 

• IMPLICIT; 

• PARAMETER; and 

• EXTERNAL. 

All are non-executable. 



The ANSI FORTRAN Standard does not provide for IMPLICIT, PARAMETER, or DOUBLE statements. 
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Table 3-11. Statement classification 



Executable statements 

Arithmetic assignment 

Logical assignment 

ASSIGN 

Unconditional GO TO 

Computed GO TO 

Assigned GO TO 

Three-branch arithmetic IF 

Two-branch arithmetic IF 

Direct logical IF 

Indirect logical IF 

DO 

CONTINUE 

STOP 

PAUSE 

Formatted READ 

Unformatted READ 

Formatted WRITE 

Unformatted WRITE 

PRINT 

PUNCH 

BACKSPACE 

ENDFILE 

REWIND 

BUFFER IN 

BUFFER OUT 

ENCODE 

DECODE 

CALL 

RETURN 

END 



Non-executable statements 

DIMENSION 

EQUIVALENCE 

COMMON 

INTEGER type 

REAL type 

DOUBLE PRECISION type 

DOUBLE (precision) type 

COMPLEX type 

LOGICAL type 

IMPLICIT 

PARAMETER 

EXTERNAL 

DATA 

FORMAT 

PROGRAM 

Statement function definition 

FUNCTION 

INTEGER FUNCTION 

REAL FUNCTION 

DOUBLE PRECISION FUNCTION 

DOUBLE FUNCTION 

COMPLEX FUNCTION 

LOGICAL FUNCTION 

SUBROUTINE 

ENTRY 

BLOCK DATA 



The ANSI FORTRAN Standard does not provide for the following statements: 

• PRINT • DOUBLE ■ PROGRAM • DOUBLE FUNCTION • ENTRY 

• PUNCH • IMPLICIT • ENCODE ■ BUFFER IN • Two -branch arithmetic IF 

• END • PARAMETER • DECODE • BUFFER OUT • Indirect logical IF 

The three-branch arithmetic IF statement is the arithmetic ^statement in the ANSI FORTRAN Standard. The direct 
logical IF statement is the logical IF statement in the ANSI FORTRAN Standard. 
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DIMENSION statements 

DIMENSION statements specify the symbolic names and dimension specifications 
of arrays. 

The form of a DIMENSION statement is 



dimension a (d ) [ , a (c?) ] 



where each a id) is an array declarator (3.4.1) . 

Each symbolic name a appearing in a DIMENSION statement declares a 
to be an array in that program unit. An array name can appear only once 
as an array declarator in a program unit. Array declarators may also 
appear in COMMON statements and in type statements. 

Examples : 

DIMENSION ARRAY (34,24,34), VECTOR (64), Z7I44X (10, 20) 
DIMENSION MATRIX (ROWS , COLUMNS) 
DIMENSION TABLE (3,IVAL, MATRIX, 2, 2) 

Note that in the last tWo examples, the use of variables defines 
adjustable dimensioning as permitted only in procedure subprograms. 

EQUIVALENCE statements 

An EQUIVALENCE statement specifies the sharing of one or more storage 
units by two or more entities in a single program unit. This causes 
the association of those entities. 

If associated entities are of different data types, the EQUIVALENCE 
statement does not cause type conversion or imply mathematical equivalence. 
If a variable and an array are associated, the variable does not assume the 
properties of an array and the array does not assume the properties of a 
variable . 

Form of an EQUIVALENCE statement - The form of an EQUIVALENCE statement is 



EQUIVALENCE ( rilist ) [ Enlist ) ] . . . 



where nlist is a list of two or more variable names, array element 
names, and/or array names separated by commas. 

Names of dummy arguments of a subprogram cannot appear in nlist. A variable 
name that is also a function name cannot appear in nlist. 

Each subscript expression in nlist must be an integer constant 
expression. 
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Equivalence association - An EQUIVALENCE statement specifies that the 
storage sequence of each entity in a list nlist shares the same first 
storage unit. This causes the association of all entities in the list 
and may also cause indirect association of other entities. 

Array names and array element names - If an array element name appears 
in an EQUIVALENCE statement, the number of subscript expressions must 
equal the number of dimensions in the array declarator for the array. 

The use of an array name in an EQUIVALENCE statement has the same effect 
as using the name of the first array element. 

Restrictions on EQUIVALENCE statements - An EQUIVALENCE statement must not 
specify that the same storage unit is to occur more than once in a storage 
sequence. For example, 

DIMENSION A (2) 

EQUIVALENCE (A(l) ,B) , (A(2) ,B) 

is prohibited, because it would specify the same storage unit for A(l) 
and A (2) . 

An EQUIVALENCE statement must not specify that consecutive storage units 
are to be non-consecutive. For example, the following is prohibited: 

REAL A(2) 

DOUBLE PRECISION D(2) 

EQUIVALENCE (A(l) ,D(1) ) , (A(2) ,D(2) ) 

An EQUIVALENCE statement must not associate the storage sequences of two 
different common blocks in the same program unit. EQUIVALENCE statement 
association must not cause a common block storage sequence to be extended 
by adding storage units preceding the first storage unit of the first 
entity specified in a COMMON statement for the common block. For example, 

COMMON /X/A 
REAL B(2) 
EQUIVALENCE ( A , B ( 2 ) ) 

is not permitted since it would attempt association of array element 
B(l) with a storage unit preceding A in common block X. 
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Example:; 



The appearance of 

DIMENSION A(15,15) ,M(5,25) ,X(2,25,2) 
EQUIVALENCE (A,M) , (A(6,9) ,X). 

in a program unit causes the first 125 array elements of A to coincide 
with the 125 array elements of M, and the last 100 array elements of 
A to coincide with the 100 array elements of X. 



A(6,9) or X(1,1,1) 



STORAGE 
SEQUENCE 



A(15,15) or X(2,25,2)-*- 





A 
(225) 


M 
(125) 


X 
(100) 





A(1,1) or M(1,1) 



-A(6,8) or M(5,25) 



COMMON statements 

The COMMON statement associates entities in different program units. 
This allows different program units to share storage units and to 
define and reference the same data. 



Form of a COMMON statement - The form of a COMMON statement is 



common \_l\ob\ /] nlist [/[c?2>] / nlist] 



where ob 
nlist 



is the symbolic name of a common block, and 

is a list of variable names, array names, and array 
declarators separated by commas. Names of dummy 
arguments of a subprogram cannot appear in the list. 



2240009 



3-60 



In each COMMON statement, the entities occurring in nlist following 
a block name cb are declared to be in common block cb. The blank 
(unnamed) common block is specified when a cb does not appear between 
slashes. If the first ob is omitted, its enclosing slashes are optional 
and all entities in the nlist are specified to be in blank common. 

Any cb (or an omitted ob for blank common) may occur more than once 
in one or more COMMON statements in a program unit. The nlist following 
each successive appearance of the same common block name continues the 
preceding list for that common block name. 

Common block storage sequence - For each common block, a common block 
storage sequence is formed as follows: 

• A storage sequence is formed consisting of the storage sequences 
of all entities in the lists nlist for the common block. The 
order of the storage sequence is determined by the order of the 
appearance of the lists nlist in the program unit. 

• This storage sequence is extended to include all storage units of 

any storage sequence associated with it by EQUIVALENCE statement 

association. The sequence may be extended only by adding storage 

units beyond the last storage unit. Entities associated with 

an entity in a common block are considered to be in that common 
block . 

Size of a common block - The size of a common block is the size of its 
common block storage sequence, including any extensions of the sequence 
resulting from EQUIVALENCE statement association. 

Within an executable program, the size of a named common block is establishr. 
ed during compilation of the first program unit specifying its name. 
This size cannot be exceeded in specifying the same named common block in 
subsequent program units, but may be the same or less. Blank common blocks 
within an executable program are not required to be of the same size and 
may increase, decrease or remain the same as each program unit is compiled. 

Common association - Within an executable program, the common block storage 
sequences of all common blocks with the same name share the same first 
storage unit. The same is true of all blank common blocks. This results 
in the association of entities among different program units. 

Differences between named common and blank common - A blank common block 
has the same properties as a named common block, except that only entities 
in named common blocks may be initially defined by DATA statements 
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Restrictions on COMMON and EQUIVALENCE statements - An EQUIVALENCE 
statement must not associate the storage sequences of two different 
common blocks in the same program unit. EQUIVALENCE statement 
association must not attempt to extend common block storage sequence 
by adding storage units preceding the first storage unit of the first 
entity specified in a COMMON statement for the common block. 



Example : 

Two program units in the same executable program each contain the 
following statements: 

COMMON /C1/X,Y,Z(10, 10) 
DIMENSION CI (1 ,2,3) 

Common block C1 contains the variables X and Y and 100-element 
array Z. Since all were declared in identical COMMON statements 
appearing in both program units, each program unit may access 
the same data. Additionally, identical DIMENSION statements appear- 
ing in both program units declare two identical but completely 
independent six-element arrays, C1 , each accessible only to the 
program unit in which it was so declared. Note that the common 
block containing X, Y, and Z has the name CI and that this name 
in no way conflicts with or pertains to the array name CI specified 
in the DIMENSION statement. 



2240009 3-62 



Example: 



The following illustrates a more complex example of COMMON statement 
use in which three program units in the same executable program share 
four common blocks: 



PROGRAM UNIT A 



C0MM0N/AB/TEST1 ,TEST2,TEST3,MATRIX(6,5,2't) ,NET(16,16) 
COMMON/AC/COUNTA, COUNTB , GR I D ( 1 00 , 1 00) 
COMMON/ABC/I NDEX,, TABLE (3, 8, 3) ,X,VECT0R(12) 



COMMON BLOCK 
AB 

TEST1 
TEST2i 
TEST3 1 
MATRIX! 



T1 




T2 




T3 




M 




► N 






NET< 



PROGRAM UNIT B 



COMMON BLOCK 
ABC 

IX 
TAB' 



UNDEX 




fTABLE 




X 




VECTOR 





COMMON BLOCK 
BC 



AVALU 

.BVALU 

CODE 

XREF 



C0MM0N/AB/T1 ,T2,T3,M(6,5,24) , N(8,32) 
C0MM0N/BC/AVALU,BVALUE,CODE,XREF(7O,7O) 
COMMON/ABC/INDEX, TABLE (3, 8, 3) ,X,VECT0R(12) 



AVALU 
BVALU 
CODE 
XREF 



COMMON BLOCK 
AC 



COUNTA 




COUNTB 




GRID 





ACOUNT 

BC0UNT4 

G 



PROGRAM UNIT C 



C0MMON/AC/ACOUNT,BCOUNT,G (1000,10) 
COMMON/BC/AVALU, BVALU, CODE, XREF(70, 70) 
C0MMON/ABC/IX,TAB(3,8,3),Y,V( 3,2,2) 
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Type statements 

A type statement either overrides or confirms implicit typing and may 
specify dimension information. 

The appearance of the symbolic name of a constant, variable, array, or 
function in a type statement specifies the data type for all appearances 
of that name in the program unit. Within a program unit, a name must not 
have its type explicitly specified more than once. 

Subroutine names, main program names, and block data subprogram names 
must not appear in a type statement. 

If a specific intrinsic function name appearing in a type statement 
conflicts with that function's type as specified in Appendix B, the 
name loses its intrinsic function property in the program unit containing 
that type statement. 

The forms of type statements are: 



INTEGER 


y[,u]... 


REAL 


y[,vH.. . 


DOUBLE PRECISION 


vl,vl... 


DOUBLE 


, vL,vl... 


COMPLEX 


v\L,vl... 


LOGICAL 


y[,uH... 



where 



INTEGER, REAL, DOUBLE PRECISION (or DOUBLE) , COMPLEX, 
or LOGICAL specifies the desired data type, and 

V is a constant, variable, array, function, or dummy 

procedure name, or is an array declarator. 



Either DOUBLE PRECISION or DOUBLE causes double-precision typing, 
that the space between DOUBLE and PRECISION is optional. 



Note 



The ANSI FORTRAN Standard does not permit the use of DOUBLE instead of DOUBLE PRECISION « 

(A special form of integer typing is discussed in Section 5 under 
"Compiler directives" . ) 



Examples : 



INTEGER NPAK(60,230) ,RTEST,XREF(20,2) ,ARRAY 
REAL FSTOP , PH ( 1 03) , I MG ( 2 , 69) , FUNCT I ON 
DOUBLE PRECISION ANG(1014,8) ,KLIM,PTEST(10) 
COMPLEX IMAG,C0MARR(30,3) ,ZREF, KITEMS(6*») 
LOGICAL KEY2,B0OLSET(6^,6^) ,TTABLEB(2,20,15) 
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IMPLICIT statements 



The ANSI FORTRAN Standard does not provide for an IMPLICIT statement. 



An IMPLICIT statement changes or confirms the data typing of constants, 
variables, arrays, and functions according to the first letter of their 
symbolic names. 

The form of an IMPLICIT statement is 



implicit . type (a , a ...) [, type (a , a ...)]..' 



where type is INTEGER, REAL, DOUBLE PRECISION (or DOUBLE) , 

COMPLEX, or LOGICAL to specify the desired data 
type , and 

a is a single letter or is a range of single letters 
denoted by the first and last letter of the range 
separated by a hyphen. Writing a range of letters 
a\ - a has the same effect as writing a list of the 
single"letters a\, a<i,...,a and where a\ precedes a^ 
in this alphabetically ordered sequence. 

An IMPLICIT statement specifies a type for all constant, variable, array, 
and function (except intrinsic function) names that begin with any letter 
appearing singly or within a range in the specification. IMPLICIT 
statements do not change the types of intrinsic functions. An IMPLICIT 
statement applies only to the program unit containing it. Note that the 
hyphen is syntactically significant. 

The appearance of a constant, variable, array, or function name in a 
type statement overrides or confirms type specification by an IMPLICIT 
statement. An explicit type specification in a FUNCTION statement 
overrides IMPLICIT statement typing for the name of that function sub- 
program. 

Within the specification statements of a program unit, IMPLICIT statements 
must precede all specification statements other than PARAMETER statements. 
A PARAMETER statement must follow an IMPLICIT statement for it to affect 
the typing of constants named in the PARAMETER statement. 

A letter can be specified (or implied within a range of letters) only 
once in all of the IMPLICIT statements in a program unit. 

Examples : 

IMPLICIT INTEGER(A,B,F-K) ,REAL(M-W,Z) 

IMPLICIT LOGICAL(L),DOUBLE(D,E) 

IMPLICIT DOUBLE PRECI SI0N(X,Y) ,C0MPLEX(C) 
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PARAMETER statements 



The ANSI FORTRAN Standard does not provide for the PARAMETER statement. 

A PARAMETER statement assigns a symbolic name to a constant. 
The form of a PARAMETER statement is 



PARAMETER (p = e[,p = e]...) 



where p is a symbolic name and 

e is an expression containing only constants and 

symbolic names of other constants 

A symbolic name in a PARAMETER statement can be specified as to type by 
its appearance in a previous type statement, by a previous IMPLICIT state- 
ment specifying its first letter, or by default if not so specified. A 
symbolic name p of type integer, real, double precision, or complex can 
only be followed by an arithmetic expression e containing arithmetic con- 
stants or the names of arithmetic constants that have been previously 
defined in the same or an earlier PARAMETER statement. The evaluation of 
arithmetic expressions in a PARAMETER statement yields results that are 
made to agree in type with the corresponding symbolic names. A symbolic 
name p of type logical can only be followed by a logical expression. A 
symbolic name can be assigned an arithmetic or logical value only once in 
a program unit. Constants named in a PARAMETER statement may be referenced 
in any subsequent statement in the same program unit except for a FORMAT 
statement. Symbolic names of constants cannot be used in format specific- 
ations or to form a part of any other constant. 



Exampl es : 

IMPLICIT LOGICAL(A-B) 
PARAMETER (P 1=3. 1415926, C=1.86E5) 
PARAMETER (J0ULE=1 0000000 , KELV I N=-273) 
PARAMETER (B00LEAN=.TRUE. ,AB00LEAN=. FALSE.) 
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EXTERNAL statements 

An EXTERNAL statement identifies a symbolic name as representing an 
external procedure and permits its use as an actual argument. 

The form of an EXTERNAL statement is 



EXTERNAL proa [,proe]. 



where proa is the name of an external procedure. 

The appearance of a name in an EXTERNAL statement declares that name to 
be an external procedure name. If an external procedure name is used 
as an actual argument in a program unit, it must appear in an EXTERNAL 
statement in that program unit. A statement function name must not appear 
in an EXTERNAL statement. 

If an intrinsic function or utility procedure name appears in an EXTERNAL 
statement, that name becomes the name of some external procedure and the 
intrinsic function or utility procedure of the same name is not available 
for reference in that program unit. If this external procedure is not 
available during loading of the executable program, the intrinsic function 
or utility procedure will be loaded in its place. 

A given symbolic name may appear only once in all of the EXTERNAL statements 
of a program unit. 

Example : 

MAIN is the main program of an executable program that includes the 
functions STAT, STDEV, and MEAN. Considering just the main program, the 
syntax in which the symbolic name STAT appears defines its being the name of 
a function. The names STDEV and MEAN, however, appear in a syntax incap- 
able of defining their being function names. This definition is established 
by the EXTERNAL STDEV, MEAN statement in the second line. 

PROGRAM MAIN FUNCTION STDEV (S) 

EXTERNAL STDEV, MEAN : 

STDEV = RMSD 
X = STAT (STDEV, SIGMA) END 

Y = STAT (MEAN, SIGMA) REAL FUNCT|0N MEAN(s) 

• - 

END MEAN = AVG 

FUNCTION STAT(OP,VALU) END 

STAT = OP(VALU) : 

END 
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3.6.3 DATA INITIALIZATION 

A DATA statement provides initial values for variables, arrays, and array 
elements. A DATA statement is non-executable and may appear in a 
program unit following any specification statements. Only those entities 
named in DATA statements become defined prior to executable program 
execution. All other entities are undefined at this time. 

Form of a DATA statement 

The form of a DATA statement is 



data nlist /'olist / [[, \nlist / olist J 



where nlist is a list of variable names, array names, array element 
names, and implied-DO lists separated by commas, and 

olist is a list of the form 

[r*] o [,[r*]e J ... 

in which o is a constant or the symbolic name of a constant, and 

V is a nonzero, unsigned, integer constant or the symbolic 
name of such a constant. 

The r*o form is interpreted to provide r successive appearances of the 
constant a. 



An implied-DO list in a DATA statement has the form 



(dlist ,i = e\ ,ez [,63]) 



where 



ei , ez, and ez 



dlist is a list of array element names and implied-DO lists 
separated by commas, 

i is the name of an integer variable called the implied- 
DO variable 

are each integer expressions containing only integer 
constants, the names of integer constants, and implied- 
DO variables of other implied-DO lists containing this 
implied-DO list within their ranges. If omitted, 63 
is assumed specified as 1. 

The range of an implied-DO list is the list dlist. The iteration count 
and values of the implied-DO variable i are established the same as for a 
DO-loop except that the iteration count must be greater than zero. Inter- 
pretation of an implied-DO list in a DATA statement causes each item in the 
list dlist to be specified once for each iteration, and for appropriate 
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values to be substituted where implied-DO variables are referenced. Each 
subscript expression in the list dlist must contain only integer constants, 
integer constant names, and implied-DO variables of implied-DO lists con- 
taining the subscript expression within their ranges. Names of implied-DO 
variables are local to the implied-DO lists containing them. 



DATA statement restrictions 

Names of constants, dummy arguments, functions, and entities in blank 
common (including entities associated with an entity in blank common) 
must not appear in nlist. Names of entities in a named common block 
may appear in nlist. 

The same number of items must be specified by each nlist and its 
corresponding olist. The initial values of the entities are defined 
by this correspondence. There must be one constant for each element 
of an array whose name appears in the list without subscripting unless 
named as the last item of an nlist. In this case, the values in olist 
may specify any number of consecutive array element values, beginning 
with the first. The type of each nlist entity and the type of the 
corresponding olist constant must agree when either is of type complex 
or logical. When the nlist entity is of type integer, real, or double 
precision, the corresponding olist constant is converted, if necessary, 
to the type of the nlist entity according to the rules for arithmetic 
conversion. A Hollerith constant can be specified to correspond to 
entities of any type except logical. 

Any variable or array element may be initially defined except for: 

o An entity that is a dummy argument, 

9 An entity in blank common, which includes an entity associated 
with an entity in blank common, or 

© A variable in a function subprogram whose name is also the name 
of the function subprogram. 

If a variable, an array element, or an entity associated with either is 
defined by a DATA statement more than once in an executable program, 
that nearest its end is the only definition to apply. 

The ANSI FORTRAN Standard does not permit nlist to contain an unsubscripted array name, or for a DATA statement 
to initialize entities in named common blocks except in block data subprograms. 

Examples : 

DIMENSION GRID (2,3) ,KBUF(10,200,2) 

PARAMETER (XC0N=6.0) 

DATA GRID /1 1 .0,21 .0,12.0,22.0, 13.0,23 .0/,KBUF/A000*XC0N/ 

DATA I/1/J/0/K/2000/ 
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3.6.4 DATA ASSIGNMENT 

Data assignment defines variables and array elements during execution of 
the executable program. The four kinds of data assignment statements are: 

• Arithmetic , 

• Logical , 

• Formatted , and 

• ASSIGN (statement label). 

Assignment statements defines entities. Formatted assignment statements 
are described in 3.6.9. 

Arithmetic assignment statements 

The form of an arithmetic assignment statement is 



v 



where V is the name of a variable or array element of type integer, 
real, double precision, or complex, and 
e is an arithmetic, Hollerith, or Boolean expression. 

Execution of an arithmetic assignment statement causes the evaluation of 
the expression e, conversion of e to the type of V (if required) , and 
definition of V with the resulting value. Once evaluated, an arithmetic 
expression may require conversion to the data type of the entity V. Table 

3.7 relates such conversions to the data types of arithmetic operands, 

expressions and evaluations. 

Examples : 



The statement — 
L = 12 

C = (0.8,16.5) - (16.32,-6.1) 
X = -B +(B**2-4*A*C)**0.5 
A = B + L 

ROOT = SQRT(65536.0) 
ARRAY(6,2,l)=0 
MATRIX(I,J,K)=MATRIX(I,J,K)+1 



Assigns to a(n) ... 
Integer variable 
Complex variable 
Real variable 
Real variable 
Real variable 
Real array element 
Integer array element 
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Logical assignment statements 

The form of a logical assignment statement is 



y 



where V is the name of a logical variable or array element, and 

e is a logical expression. 

Execution of a logical assignment statement causes the evaluation of the 
expression e and the definition of V with the value of e. e must either 
be evaluated as true or false. 

Examples : 

All variable and array element names are assumed to be of type logical 
except for E and F which are type real. 

T = .FALSE. 

A = B 

C = (A .AND. B) .OR. (C .AND. D) 

T = .NOT. T 

TRUTAB(I,J,K,L) = .T. 

T = E.GE.F .OR. E/F .LT..4 

ASSIGN statements 



The form of an ASSIGN (statement label) statement is 



ASSIGN S TO ^ 



where s is a statement label, and 

■i is an integer variable name. 

An ASSIGN statement assigns the statement label s to the integer variable 
i. s must be the label of an executable statement or a FORMAT statement 
in the same program unit as the ASSIGN statement. 

Execution of an ASSIGN statement is the only way to define a variable 
with a statement label . 

A variable defined with a statement label can be referenced only in an 
assigned GO TO statement, or as a FORMAT statement identifier in an input/ 
output statement, a formatted assignment statement, or an argument. While 
so defined, the variable -i cannot be referenced for any other purpose. It 
may be redefined with the same or a different statement label or with an 
integer, Hollerith, or Boolean value. 
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Note that "TO" is a keyword extension in the ASSIGN statement and is not 
a part of the keyword "ASSIGN" itself. Both must appear in an ASSIGN 
statement . 

Examples : 

ASSIGN 910 TO JUMPTO 
ASSIGN 6 TO NEXTPATH 
ASSIGN 123^5 TO NUFORMAT 

3.6.5 PROGRAM CONTROL 

The following statements control an execution sequence: 

• Unconditional GO TO 

• Computed GO TO 

• Assigned GO TO 

• Three-branch arithmetic IF 

• Two-branch arithmetic IF 

• Direct logical IF 

• Indirect logical IF 

• DO 

• CONTINUE 

• STOP 

• PAUSE 

• END 

• CALL 



} 



described in 3.6.11 
• RETURN 



Unconditional GO TO statements 

The form of an unconditional GO TO statement is 



GO TO S 



where s is the statement label of an executable statement in the same 
program unit. 
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Execution of an unconditional GO TO statement causes a transfer of control 
to the statement identified by the statement label. 

Note that the space between GO and TO is optional. 

Examples : 

GOTO 910 
GO TO 6 
GO T0123A5 

Computed GO TO statements 

The form of a computed GO TO statement is 



GO TO (s[,s]...) [,]e 



where e is an integer expression, and 

s is the statement label of an executable statement that appears 
in the same program unit as the computed GO TO statement. A 
given statement label may appear more than once in a computed 
GO TO statement. 

Execution of a computed GO TO statement causes the expression e to be 
evaluated for an integer result, i. A transfer of control to the statement 
identified by the ith statement label in the list of n statement labels 
is then executed if li i < n. If i, < 1 or i > n, the execution sequence 
proceeds as though a CONTINUE statement were executed. If the evaluation 
of e for £ produces a non- integer result, the fractional portion is dis- 
carded without rounding. 



The ANSI FORTRAN Standard does not specify the action of a computed GO TO statement when i<\ or i>n , and 
requires that e be an integer variable preceded by a comma. 



Note that the space between GO and TO is optional and that an optional 
comma may precede e. 



Examples : 



A =3. 

GO TO (2,Jf,8,l6)A 

IX=MSIZE/2 

GO TO (0031, 59, 728) IX 

GO TO (0031,59,728)MSIZE/2 

NBRANCH =k 

GOTO (6, 3, 6, 6, 7, 2, 7), NBRANCH 



2240009 3-73 



Assigned GO TO statements 

The form of an assigned GO TO statement is 



GO TO i[ [,] (sLs]...) 



where •£ is an integer variable name, and 

s is the statement label of an executable statement that 
appears in the same program unit as the assigned GO TO 
statement. A given statement label may appear more than 
once in this statement. 

Execution of an assigned GO TO statement causes that value of t, as 
assigned by prior execution of an ASSIGN statement, to define a statement 
label of an executable statement. Execution of the assigned GO TO 
statement causes a transfer of control to the statement identified 
by that statement label. Definition of the variable used in an assigned 
GO TO statement must occur through use of an ASSIGN statement previously 
executed in the same program unit. 

The optional parenthesized statement label list should, in principle, 
contain at least one specification of the statement label assigned to i. 
If this is not the case, transfer of control will still occur to that 
statement identified by the label in i. 

Note that the space between GO and TO is optional and that an optional 
comma may follow i if a list of statement labels is specified. 

The ANSI FORTRAN Standard requires the parenthesized statement label list and the comma preceding it, and does not 
specify what action is taken if there is no a to match i . 

Examples : 

ASSIGN 76 TO LAB 

GO TO LAB 

ASSIGN 999 TO KFIN 

GO TO KFIN (997,997,999) 
ASSIGN 1 TO JAIL 



GO TO JAIL, (1,2,3, k, 5) 
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Three-branch arithmetic IF statements 

The form of a three-branch arithmetic IF statement is 



IF ( e ) Si,S 2 ,S: 



where 



is an integer, real, or double-precision expression, and 



8\,82i and S3 are statement labels of executable statements that appear 
in the same program unit as the three-branch arithmetic 
IF statement. The same statement label may appear more 
than once in this statement. 

Execution of a three-branch arithmetic IF statement causes evaluation of 
the expression e followed by a transfer of control to one of the state- 
ments identified by s^, S 2 i or S3, as the value of e is less than zero, 
equal to zero, or greater than zero, respectively. 

The ANSI FORTRAN Standard arithmetic IF statement and the three-branch a rithmetic IF statement are the same. 

Examples : 

IF (VTEST) 20,21,20 

IF (B**2-4*A*C) 70,80,90 

IF (SIN(ALPHA)) 6482, 4826, 8264 

Two-branch arithmetic IF statements 

The form of a two-branch arithmetic IF statement is: 



IF ( e ) Si,S 2 



where e is an integer, real, or double-precision expression, and 

S\ and S2 are statement labels of executable statements that 
appear in the same program unit as the two-branch 
arithmetic IF statement. 

The ANSI FORTRAN Standard does not provide for the two-branch arithmetic IF statement. 

Execution of a two-branch arithmetic IF statement causes evaluation of 
the expression e followed by a transfer of control to the statement iden- 
tified by Sj if e is non-zero or to the statement identified by s 2 if & 
is zero. 
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Examples : 

IF (l+J*K) 100,101 

IF (SIN(ALPHA)) 31,49627 

IF (2+3-M) 44,20 

Direct logical IF statements 

The form of a direct logical IF statement is 



IF ( e. ) st 



where e is a logical expression, and 

st is any executable statement other than a DO statement, an END 
statement, or another direct logical IF statement and is called 
a conditional statement. 

Execution of a direct logical IF statement causes evaluation of the expres- 
sion e for a logical value. If the value of e is true, statement st is 
executed. If the value of e is false, statement st is not executed and 
the execution sequence proceeds as though a CONTINUE statement were 
executed. The execution of a function reference in the expression 
of a direct logical IF statement may affect related entities in the 
statement st. 

The ANSI FORTRAN Standard refers to the direct logical I F statement as the logical IF statement. 



Examples: 



LOGICAL K 
IF(K) K=.N0T.K 

INTEGER A,B 

IF (A.EQ.B) GO TO 100 

LOGICAL M,N,P,Q 

IF (M. AND. N. OR. P. AND. Q) M=P.OR.0_.OR.N 
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Indirect logical IF statements 

The form of an indirect logical IF statement is 



IF (e) si,s 2 



where e is a logical expression and 

Si and S2 are statement labels of executable statements appearing 
in the same program unit as the indirect logical IF 
statement . 



The ANSI FORTRAN Standard does not provide for the indirect logical IF statement. 



Execution of an indirect logical IF statement causes evaluation of the 
expression e for a logical value followed by a transfer of control. If 
the value of e is true, the statement identified with statement label 
S\ is executed next. If the value of e is false, the statement identified 
with statement label s z is executed next. 

Examples : 

X and Y are numeric variables; all others are logical 

IF((A.0R.B).AND.C)210,220 
IF(X.GE.Y) 1^8,9999 
IF(L1.EQV.L2)3,M» 

DO statements 

A DO statement specifies a DO-loop. A DO-loop enables repeated 
execution of the set of executable statements within its range. 

The form of a DO statement is 



DO 



'[»]£ = e 1 ,e z [, e{\ 



where s is the statement label of an executable statement 

called the terminal statement that physically follows 
the DO statement in the same program unit; 

i is the name of an integer, real, or double-precision 
variable, called the DO-variable ; and 

e l , ^2 , and 63 are integer, real, or double-precision expressions. 



The ANSI FORTRAN Standard requires that i be an integer variable, that e be an integer variable or integer constant, and 
that both i and « be greater than zero when the DO statement is executed. The ANSI FORTRAN Standard doeTnot provide 
for a comma between a and i . 
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I 



The terminal statement of a DO-loop must not be an unconditional GO TO, 
assigned GO TO, indirect logical IF, two- or three-branch arithmetic IF, 
RETURN, PAUSE, STOP, END, or another DO statement. 

The ANSI FORTRAN Standard specifies that the terminal statement of a DO-loop may not be a DO, PAUSE, STOP, 
RETURN, unconditional GO TO, assigned GO TO, computed GO TO,or arithmetic IF. Nor is a (direct) logical IF 
statement permitted if its conditional statement is one of these. 



Range of a DO-loop - The range of a DO-loop consists of all executable 
statements between and including the first executable statement following 
the DO statement, and the terminal statement of the DO-loop. 

A DO-loop may appear within a DO-loop and must be entirely contained 
within the outer DO-loop range. More than one DO-loop may have the same 
terminal statement. 

Active and inactive DO-loops - A DO-loop is either active or inactive. 
A DO-loop is initially inactive and becomes active only when its DO 
statement is executed. 

An active DO-loop becomes inactive when: 

• Its iteration count is zero, 

• A RETURN, PAUSE, STOP, or END statement is executed in the same 
program unit, 

• It is in the range of another DO-loop that becomes inactive, or 

• It is in the range of another DO-loop whose DO statement is 

executed. 

Note that transfer of control out of the range of a DO-loop does not 
inactivate the DO-loop. However, the DO-loop becomes inactive if the 
DO-variable becomes undefined or is redefined while outside the range. 

When a DO-loop becomes inactive, the DO-variable retains its last defined 
value unless it became undefined due to earlier action. 

Executing a DO statement - Executing a DO statement initiates the follow- 
ing sequence of steps: 

• The initial parameter m lf the terminal parameter m 2 , and the 
incrementation parameter m$ are established by evaluating e\, 
e<i, and e^, respectively, including any necessary conversion 
to the type of the DO-variable according to the rules for 
arithmetic conversion. If e$ does not appear, m 3 is assigned 
a value of one . OT3 may be positive or negative but must not be 
zero. 
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The DO-variable i becomes defined with the value of the initial 
parameter m\. 

The Iteration oount is established as an integer value equal to 
the integer portion of the expression 

(m 2 - mi + tfz 3 ) / m 3 

or as zero in the event that 

m l >m Zr and W3>0 or 
mi < m 2 , and m$ <o- 



Once the iteration count is established, the DO-variable and entities 
named in the initial, terminal, and incrementation parameters (e lf e^, 
and 63) may be redefined with no effect on loop control processing. 

At the completion of DOstatement execution, loop control processing 
begins. 

Loop control processing - Loop control processing determines if execu- 
tion of the range of the DO-loop is required. If the iteration count 
is not zero, control transfers to the first statement in the range of 
the DO-loop. If the iteration count is zero, the DO-loop becomes 
inactive. If, as a result, all DO-loops sharing the terminal statement 
of this DO-loop are inactive, control is transferred to the first 
executable statement after the terminal statement. However, if any 
DO-loops sharing the terminal statement are active, execution resumes 
with incrementation processing as described in the third paragraph 
following . 



The ANSI FORTRAN Standard specifies that the test for a zero iteration count is to occur at the conclusion of 
incrementation processing. 



Execution of the range - Statements in the range of a DO-loop are executed 
until the terminal statement is reached. 

Terminal statement execution - Execution of the terminal statement occurs 
during a normal execution sequence or through transfer of control. If 
execution of the terminal statement does not cause a transfer of control, 
execution continues with incrementation processing, as described below. 
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Incrementation processing - Incrementation processing has the effect of 
performing the following steps in sequence: 

• The value of the DO- variable is incremented by the value of 77*3. 

• The iteration count is decremented by one. 

The ANSI FORTRAN Standard specifies the tests for iteration count at this point. A non-zero iteration count results in 
continuation as described below; a zero iteration count is processed as already described for such. 

• Execution continues with loop control processing of the same 
DO-loop whose iteration count was decremented. 

Note that a DO-variable may increase or decrease in value during increment- 
ation processing. 

The ANSI FORTRAN Standard does not permit the value of the DO-variable to decrease. 



Examples : 



I 



PARAMETER(N=50) 
DIMENSION TABLE (N) 
DO 2 1=1, N 
IF(TABLE(1))2,2,1 

1 TABLE(l)=-TABLE(l) 

2 TABLE(l)=-TABLE(l) 



PARAMETER (I =2, J=200) 

DIMENSION GRID(I.J), PGRID(l,J) 

DO 22 K=l,1,-1 

DO 22 L=J,1,-1 

PGRID(K,L) = GRID(K,L) 

IF(PGRID(K, L))21,22,22 

21 PGRID(K.L) = -PGRID(K,L) 

22 GRID(K,L) = 



M=0 

DO 100 1=1,10 
J=l 

DO 100 K=1,5 
L=K 
100 M=M+1 

In the last example, 1=11, J=10, K=6, L=5, and M=50 after the last 
statement is executed for the last time. 
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Transfer into the range of a DO-loop - Control must not transfer into the 
range of an inactive DO-loop. Control may transfer to any executable 
statement in the range of an active DO-loop. 

CONTINUE statements 



The form of a CONTINUE statement is 



CONTINUE 



Execution of a CONTINUE statement has no effect. 

A CONTINUE statement is commonly used as the terminal statement of a 
DO-loop. As with any statement so used, the next statement executed 
depends on the result of DO-loop incrementation processing. Note that 
this action is the result of DO-loop processing and not of CONTINUE 
statement execution. 

Examples : 

PARAMETER (N6=5050) 
DIMENSION ARRAY6(16) 
DO 22,1=16,1,-1 

IF(ARRAY6(l).NE.O) ARRAY6( I )=1 .0/ARRAY6( I ) 
22 CONTINUE 

STOP statements 

The form of a STOP statement is 



STOP [id] 



where id, if used, must be: 

o A string of up to eight digits , 

9 A Hollerith constant of up to eight characters contained in 
parentheses , or 

e The symbolic name of a variable, array element, or function 
containing (or providing) eight Hollerith characters. 

The ANSI FORTRAN Standard limits the string id to five octal digits 

A STOP statement is used in a main program, subroutine subprogram, or 
function subprogram to terminate execution of the executable program. 
Specification or non-specification of id has no effect on the executable 
program. The Hollerith characters specified by id appear in a logfile 
message to identify the STOP statement encountered during executable 
program execution. 
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PAUSE statements 

The form of a PAUSE statement is 



pause[£<2] 



where id, if used, must be: 

• A string of up to eight digits, 

• A Hollerith constant of up to eight characters contained in 
parentheses, or 

The symbolic name of a variable, array element, or function 
containing (or providing) eight Hollerith characters. 



• 



The ANSI FORTRAN Standard limits the string id to five octal digits. 



A PAUSE statement is used in a main program, subroutine subprogram, or 
function subprogram to terminate execution of the executable program. 
Specification or non-specification of id has no effect on the executable 
program. The Hollerith characters specified by id appear in a logfile 
message to identify the PAUSE statement encountered during executable 
program execution. 



The ANSI FORTRAN Standard provides for continuation of executable program execution following 
a PAUSE statement conditional upon external factors. ; 



END statements 



The ANSI FORTRAN Standard provides for an END line, but not for an END statement. 



The form of an END statement is 



END 



An END statement is required at the physical end of the sequence of 
statements and lines of every program unit. When executed in a sub- 
program, it has the effect of a RETURN statement. When executed in a 
main program, it has the effect of a STOP statement. 

No other statement in a program unit may be expressed with an initial line 
that appears to contain an END statement. 

The last line of every program unit must be an initial line that contains 
a complete END statement. This special form of initial line is called a 
terminal line. Note that a single END statement can appear with one or 
more STOP statements or with one or more RETURN statements in the same 
program unit. 
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3.6.6 INPUT/OUTPUT OPERATIONS 

Input statements provide the means of transferring data from the mass 
storage subsystem to the memory section of the CPU. This process is 
called reading. Output statements provide the means of transferring 
data from memory to mass storage. This process is called writing. 
Editing of the data may also be performed. 

In addition to statements that transfer data, auxiliary input/output 
statements are provided for the manipulation of external media. 

Input/output records, files, units, and formats 

Records - A record is a sequence of values or characters. For example, 
a punched card is usually considered to be a record. A record may or may 
not correspond to a physical entity. 

The three kinds of records are: 

• Formatted , 

• Unformatted, and 

• End-of-file or endfile. 

Formatted records 



A formatted record consists of a sequence of characters. Its length 
is measured in characters , depends primarily on the number of char- 
acters transferred when written. The length may also depend on 
characteristics of the peripheral device (i.e., line printer, card 
reader) serving as the origin or ultimate destination for the data. 
Formatted records may be read or written by formatted input/output 
statements, or may be prepared by means other than FORTRAN. Unfor- 
matted and buffered input/output statements can also read and write 
formatted records, but do so in a manner that ignores their for- 
matted characteristics. 

Unformatted records 

An unformatted record consists of a sequence of character and/or 
noncharacter data. The length of an unformatted record is measured ' 
in storage units (words) . 

Unformatted records can be read or written by unformatted and 
buffered input/output statements. 

End-of-file (endfile) records 

An endfile record is written by an ENDFILE statement, must occur 
only as the last record of a file, and has no length property. 
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Files - A file is a sequence of records. 

File existence 

A set of files exists for an executable program when each can be 
identified and/or referenced by name. A file may be present yet 
not exist for an executable program at a particular time. A file 
may also exist that contains no records. 

Creating a file causes a file to exist that did not previously 
exist. Deleting a. file terminates its existence. 

All input/output statements may refer to files that exist. 
Output statements may also refer to files that do not exist. 

Record and file positions - Because records and files both exist as 
elements in sequences, the position of a record or a file may be des- 
cribed in terms of its position in a sequence. Certain circumstances 
can cause this position to become indeterminate. 

In a sequence, the initial ■point is the position just before the first 
element. The terminal point is the position just after the last element. 

If a sequence is positioned at a point within an element, that element 
is the current element; otherwise, there is no current element. 

A preceding element is that element preceding the current element or 
terminal point. No preceding element exists for the initial point of 
a sequence or for the terminal point if the sequence is empty. 

The next element of a sequence immediately follows the current element. 
No next element exists for the terminal point of a sequence or for the 
initial point if the sequence is empty. 

Each file contains all formatted or all unformatted records and is 
terminated with an endfile record. 

Datasets - A dataset is a sequence of all files associated with a 
particular unit during execution of the executable program. Assoc- 
iation of a dataset with a particular unit is not under control of 
the executable program. Datasets are described in Cray Research 
publication 2240011, "CRAY-OS Version 1.0 External Reference Speci- 
fication" . 

Internal records, files and datasets - Internal records, internal 
files, and internal datasets are analogous to records, files, and 
datasets except for there being no associated unit and their per- 
taining only to formatted data assignment operations performed by 
the ENCODE and DECODE statements. 

Sequential and random input/output operations - All input/output 
operations are based upon the sequential storage in memory of 
files within datasets and records within files. Random input/ 
output operations access these entities in a non-sequential order. 
The two utility procedures enabling random input/output operations 
and techniques for their use are described in Appendix H. 
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Units - A unit is a means of referring to a file. 

Unit existence 

At any given time, a set of units exists for an executable program. 
All input/output statements may refer to units that exist. 

Unit identifiers 

The form of a unit identifier is 



A unit identifier is specified as an integer .expression or as a 
Hollerith expression of up to eight characters. 

The ANSI FORTRAN Standard does not provide for " being specified as an expression, and allows only an integer 
constant or variable to be used. 



The assignment of unit identifiers to specific files is not under 
the control of the executable program, u is converted to an integer 
value to correspond with an assigned identifier. The unit so identi- 
fied is the same for all program units of the executable program. 



Formats • - The form of a format identifier is 



/ 



A format identifier must be either an array name or the label of a FORMAT 
statement in the same program unit. 

READ, WRITE, PRINT and PUNCH statements 

The READ statement is the data transfer input statement. WRITE, PRINT, 
and PUNCH statements are data transfer output statements. The forms of 
these statements are: 



READ (eilist) \_iolist ] 
READ f [,iolist ] 
write (eilist ) [iolist] 
PRINT / [ , iolist ] 
PUNCH / [, iolist ] 



where eilist is a control information list that includes a reference to 
the source or destination of the data to be transferred and 
an optional format identifier for editing processes, 

f is a format identifier, and 

iolist is an input/output list specifying the data to be transferred. 

The ANSI FORTRAN Standard does not provide for READ/[, iolia-%, PRINT and PUNCH statements. 
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Control information lists - The form of a control, information list 
clist is 



ul,f] 



A control information list contains one unit identifier and may contain 
a format identifier. 

If the control information list contains a format identifier, the statement 
is a formatted input/output statement; otherwise, it is an unformatted input/ 
output statement. 

Examples: 

READ (98,123^5) ... 
WRITE (K-1,306) ... 
READ (5,ARRAYF) ... 
WRITE ('$0UT' ,99) ... 
PRINT 22 

Input/output lists - An input/output list, iolist, specifies entities 
whose values are transferred by input/output statements. This list is 
composed of one or more input/output list items separated by commas and 
may include one or more optional implied-DO lists. An input/output list 
item is either an input or an output list item. 

An array name appearing as an input/output list item is treated as if all 
elements of the array were specified in the order given by array element 
ordering. 

Input list items 

An input list item must be: 

• A variable name, 

• An array element name, or 
9 An array name. 

Only input list items may appear in an input statement. 

Output list items 

An output list item must be: 

• A variable name, 

e An array element name, 

• An array name, or 

• An expression 
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Input/output lists are specified with ENCODE and DECODE statements 
the same as for input/output statements. 



Examples : 



READ (23) 



READ(23,1066) 

1066 FORMAT ... 

READ(23,FARRAY) 

READ(23) BINDATA1,BINDATA2, 

READ(23,1067) A,B,C, ... 

1067 FORMAT ... 

READ(23,FVECT0R) X1,X2, ... 

READ 1068 

1068 FORMAT ... 

READ 1069,A,X,B,Y, ... 

1069 FORMAT ... 
READ('$INPUT') ... 



WRITE(7) 

WRITE(7,2066) 

2066 FORMAT ... 

WRITE(7,FMATRIX) 
WRITE(7)BINDATA1,BINDATA2, 

WRITE(7,2067)A,B,C,... 

2067 FORMAT ... 

WRITE(7,FVECT0R) X1,X2, .. 

PRINT 2068 

2068 FORMAT ... 

PUNCH 2069,A,X,B,Y ... 

2069 FORMAT ... 
WRITE('BINOUT') ... 



Implied-DO lists 

An implied-DO list is of the form 



( dlist , i = ei , e 2 [ , e 3 ]. ) 



where i, e\, ei, and e 3 are as specified for the DO statement, and 

dlist is an input/output list. 

The range of an implied-DO list is the list dlist. Note that dlist 
may itself contain one or more implied-DO lists . The iteration count 
and the value of the DO-variable i are established from e\ , eii and 
e 3 exactly as for a DO-loop. Once the values of i and of the 
iteration count are established, i , e\, e-i, and e 3 may be redefined 
with no effect on the loop control process. The DO-variable £ may 
be specified as a subscript to array elements named in dlist for 
both input and output list items. When an implied-DO list appears 
in an input/output list, it is treated as if dlist were specified 
once for each iteration of the implied-DO list. 



2240009 



3-87 



Examples : 

PRINT 31 1 , (VECTOR( r) , 1=1 ,100) 

311 FORMAT ... 

READ(12,3A5) ((XREF(M,N) ,M=1 ,2 ) ,N=1 ,3) 
3^5 FORMAT ... 

WRITE(6,350)(M,(N,XREF(M,N),N=1,3),M=2,1,-O 
350 FORMAT ... v 

Execution of data transfer input/output statements 

The effect of executing a data transfer input/output statement must be as 
if the following operations were performed in the order specified: 

• Determine the direction of data transfer. 

• Identify the unit. 

• Establish the format (if specified) . 

• Transfer data between the file and the entities specified by the 
input/output list (if any) . 

Dir ection of data transfer - Execution of a READ statement causes values 
to be transferred from a file to the entities specified by the xnput list, 
if present. 

Execution of a WRITE, PRINT or PUNCH statement causes values to be trans- 
ferred to a file from the entities specified by the output list and format 
specification (if any). The WRITE, PRINT, and PUNCH statements are treated 
identically in this regard. Execution of a WRITE, PRINT, or PUNCH state- 
ment for a file that does not exist creates that file. 

Identifying a unit - A READ statement that does not contain a control 

information list specifies a particular predetermined unit. PRINT and 

PUNCH statements similarly specify separate and unique predetermined 

units. Unit prespecification is not under the control of the executable 

program. 

The unit identified by a data transfer input/output statement must be 

associated with a file when the statement is executed. 

Establishing a format - The presence of a format identifier in a control 

information list identifies a format specification. 
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File position prior to data transfer - The position of a file is not 
changed prior to data transfer. The next record becomes the current 
record during the transfer or during positioning caused by T or X edit 
descriptors (as described in later paragraphs) . 

Data transfer - Data are transferred between records and entities specified 
by the input/output list. List items are processed in the order of their 
left-to-right appearance in the input/output list. 

All values needed to determine which entities are specified by an input/ 
output list item are determined at the beginning of the processing of that 
item. In the example, 

N(l) = 3 

READ (8) N(N(1)) 

a value reads into N(3). Note that the array element item is a single 
input/output list item. 

All values are transmitted to or from the entities specified by a list 
item prior to the processing of any succeeding list item. In the example, 

READ (3) N, A(N) 

the first value read is assigned to N, and the second is assigned to 
A(N) where the new value of N is used as the subscript. 

A DO-variable in an implied-DO list becomes defined at the beginning of 
processing the implied-DO list as an input/output list item. 

Reading an endfile record causes the contents of input list items specified 
in the READ statement to become undefined. 

An input list item, or any entity associated with it, must not affect 
any portion of the established format specification. 

Unformatted data transfer 

During unformatted data transfer, data are transferred without 
editing between the current record and the entities specified by the 
input/output list. Exactly one record is read or written. 

On input, the file must be positioned so that the record read is an 
unformatted record or an endfile record. The number of values re- 
quired by the input list must be less than or equal to the number 
of values in the record and must not require more values than the 
record contains. 
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Formatted data transfer 

During formatted data transfer, data are transferred with editing 
between the entities specified by the input/output list and the 
file. The current record and possibly additional records are read 
or written. 

On input, the record read must be a formatted record or an endfile 
record. 

The input/output list and format specification must not require more 
characters than a record contains. 

On output, the output list and format specification must not specify 
more than 152 characters per record. 



The ANSI FORTRAN Standard does not provide for a maximum number of characters per record. 



The transfer of formatted record information to certain devices is 
termed printing. The first character of a formatted record is not 
printed. The remaining characters of the record, if any, are 
printed in one line beginning at the left margin. 

The first character of such a record determines the vertical spacing 
to occur before printing. The character codes specifying vertical 
spacing (carriage) control are shown in table 3-12. 

Table 3-12. Print control characters 



Character • 


Vertical spacing before printing 


Blank 



1 

+ 

All other 


Advance one line 

Advance two lines 

Advance to first line of next page 

No advance 

Advance one line 



If there are no characters in the record, an advance of one line 
occurs. Nothing is printed in that line. 

Note that a PRINT statement does not necessarily result in a printing 
operation. 
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File position after data transfer - If an error condition exists, the 
position of the file is indeterminate. 

If an end-of-file condition exists as a result of reading an endfile 
record, the file is positioned after the endfile record. 

If no error condition or end-of-file condition exists, the file is 
positioned after the last record read or written. 

BACKSPACE, ENDFILE, and REWIND statements 

The forms of the BACKSPACE, ENDFILE, and REWIND statements are: 



BACKSPACE 


U 


BACKSPACE 


(U) 


ENDFILE 


u 


ENDFILE 


(«> 


REWIND 


' u 


REWIND 


(u) 



where u is a unit identifier. 

The unit specified by a BACKSPACE, REWIND, or ENDFILE statement must be 
associated with a file. Parentheses must delimit a unit identifier speci- 
fied as a Hollerith constant. 

BACKSPACE statements - A BACKSPACE statement causes the file related to 
the specified unit to be positioned before the preceding record. If there 
is no preceding record, the position of the file is not changed. Note 
that if the preceding record is an endfile record, the file is positioned 
before it. 

ENDFILE statements - An ENDFILE statement writes an endfile record as the 
next record of the file. The file is then positioned after the endfile 
record. Execution of an ENDFILE statement for a file that does not exist 
creates that file. 

REWIND statements - A REWIND statement causes the specified file to be 
positioned at its initial point. If the file is already positioned at 
its initial point, execution of this statement has no effect on the 
position of the file. 

Restrictions on input/output statements 

A function must not be referenced in an input/output statement if it 
causes an input/output statement to be executed. 

An input/output statement must not reference a unit or file not having 
all the properties required for its execution. 
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3.6.7 FORMAT SPECIFICATION 

A format specification provides explicit editing information to formatted 
input/output and formatted assignment statements to direct the editing of 
data between its internal representation and the corresponding character 
strings required. Format specifications may be given in FORMAT state- 
ments or as character values in arrays. 

A FORMAT statement is not required if the format identifier in a formatted 
input/output or formatted assignment statement is an array name. The 
initial and following elements of that array must be defined with character 
data that constitute a format specification when the input/output state- 
ment is executed. The specification is considered to be contained in a 
concatenation of all elements in the array in the order given by array 
element ordering. The opening parenthesis must be in the first or ninth 
array element. If in the ninth array element, the content of the first 
eight elements has no effect on program execution. 

A format identifier that is a statement label must be the label of a 
FORMAT statement in the same program unit. The format specification 
contained in that FORMAT statement is applied when the formatted input/ 
output or assignment statement is executed. 

In either case, a format specification begins with a left parenthesis and 
ends with a right parenthesis. A complete format specification may contain 
a format specification which, in turn, contains a format specification. 
Deeper nesting of format specifications must not be specified. Character 
data following the right parenthesis of a complete format specification is 
ignored only when the specification is contained in an array. 

FORMAT statements 

The form of a FORMAT statement is 



FORMAT {[.flist]) 



where ftist is a format specification. 
FORMAT statements must always be labeled. 

Form of a format specification 
I The form of a format specification is 



( Zflintl ) 



where flist is a list in which each list item has one of the forms: 



ned 
ed 
M (flist) 
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and where 



ned 

ed 

r 



is a nonrepeatable edit descriptor, 

is a repeatable edit descriptor, 

is a nonzero, unsigned integer constant called a 
repeat specification, and 



ft-ist is a format specification with a non-empty list. 
Commas may separate list items in flist but are required only between: 

• Two adjacent digits where each belongs to different list items, 
and 

• Between two adjacent apostrophe or quotation mark delimiters of 
separate edit descriptors. 



The ANSI FORTRAN Standard does not provide for the optional use of commas except before and after the slash edit 
descriptor. 



Examples : 

1999 
123 2 * 



FORMAT (1H1,5X,6F6.2) 

FORMAT (6HABC123,2X,"= M ,D15.5,2X,I6) 



Array form: 
FMT1 



(6HABC12 


3,2X,"=" 


,D15.5,2 


X.I6) 



Edit descriptors 

An edi-t descriptor is either a repeatable edit descriptor ed or a non- 
repeatable edit descriptor ned. 
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The forms of repeatable edit descriptors are: 



[>]iw 

DtOfw. d 

[v^EM.d 

Zrlow.d 

Mgw.cZ 

Lrlow 

CrUzw 

DpHaw 

Mrw 



where; I, F, E, D, G, O, Z, L, A, and R indicate the manner of editing, 

W and r are nonzero, unsigned integer 
constants , and 

d is an unsigned integer constant. 

The repeat specification , r , optionally precedes any repeatable edit ' 
descriptor. 



The ANSI FORTRAN Standard does not provide for the 0, Z, or R edit descriptors. 



Examples : 

13 F8.5 E19.12 
519 2F6.0 12E7.2 



D8.1 G13.3 023 Z6 L7 A8 R6 
3D10.0 29G5.0 6023 2Z10 7L7 3A5 ^R 1 * 



The forms of nonrepeatable edit descriptors are: 



'hih 2 ...h n ' 


(apostrophe) 


*hih 2 ...h n * 


(asterisk) 


"hih 2 ...h" 
1 ^ n 


(quotation mark) 


nuhih?. . .h 
1 ^ n 




TO 




rax 




ra / 


(slash) 


: 


(colon) 


kp 
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where; apostrophe, asterisk, quotation mark, H, T, X, slash, colon, 
and P indicate the manner of editing, 

h is one Hollerith character, 

b 3 Gj and n are nonzero, unsigned integer constants, and 

k is an optionally signed integer constant. 



The ANSI FORTRAN Standard does not provide for the apostrophe, asterisk, quotation mark, or T edit 
descriptors, or for the bl arid X forms of the slash and X edit descriptors. 



Examples : 



'AN APOSTROPHE EDIT DESCRIPTOR' 

*AN ASTERISK EDIT DESCRIPTOR* 

"A QUOTATION -MARK EDIT DESCRIPTOR" 

20HAN H EDIT DESCRIPTOR 

T112 

55X 

/ 

6/ 



3P 



Interaction between input/output lists and format specifications 

The beginning of execution of a formatted input/output statement or a 
formatted assignment statement initiates format control. Each action 
of format control depends on information from: 

• The next edit descriptor provided by the format specification, 
and 

• The next item in the input/output list, if one exists. 

If a statement has an input/output list, at least one repeatable edit 
descriptor must exist in the format specification. 



2240009 3-95 



I 



An empty format specification of the form ( ) may be used unless contained 
within another format specification. An empty format specification causes 
one input or internal record to be skipped or one output or internal record 
containing no characters to be written. There must be no input/output 
list items corresponding to an empty format specification. Except for 
repeated edit descriptors and embedded format specifications, a format 
specification is interpreted from left to right. An embedded format spec- 
ification or edit descriptor preceded by an r is processed as a list of V 
format specifications or edit descriptors identical to that preceded by 
the v. An omitted repeat specification is treated the same as a repeat 
specification whose value is one. 

Each repeatable edit descriptor interpreted in a format specification 
corresponds to one item specified by the input/output list, except that 
an item of type complex requires the interpretation of two F, E, D, G, 
A, or R edit descriptors. An input/output list contains no items correspond- 
ing to non-repeatable edit descriptors. 

When format control encounters a repeatable edit descriptor, it determines 
whether there is a corresponding item specified by the input/output list. 
If there is, format control transmits appropriately edited information 
between the item and the record, then proceeds. If there is not, format 
control terminates. 

If a colon edit descriptor is encountered and if there are no more input/ 
output list items to be processed, format control is terminated. If there 
are more input/output list items, the colon edit descriptor is ignored. 

Format control also terminates if it encounters the rightmost parenthesis 
of a complete format specification and if no additional input/output list 
items are specified. If another list item is specified, the file is 
positioned before the next record and format control reverts to the beginning 
of that format specification terminated by the next-to-last right parenthesis. 
If there is none, format control reverts to the left parenthesis of the 
complete format specification- If reversion occurs, the reused portion of 
the format specification must contain at least one repeatable edit descriptor. 
If format control reverts to a parenthesis that is immediately preceded by 
a repeat specification, the repeat specification is reused. Reversion of 
format control, of itself, has no effect on the scale factor (see P editing). 

Positioning by format control 

If a T or X edit descriptor is the first edit descriptor encountered after 
format control is initiated, its action causes the next record to become 
the current record. 

After processing each repeatable edit descriptor or an H, apostrophe, 
asterisk, or quotation mark edit descriptor, the file is positioned after 
the last character read or written in the current record. 
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After processing a T, X, slash or colon edit descriptor, the file is 
positioned as separately described for each. 

If format control reverts, the file is positioned in a manner identical 
to that when a slash edit descriptor is processed. 

After a read operation, any unprocessed characters of the record read 
are skipped. 

When format control terminates, the file is positioned after the current 
record . 

Editing 

Edit descriptors specify the form of a record and direct the editing 
between characters in a record and their corresponding internal represent- 
ation. 

A field is a part of a record that is read or written when format control 
processes a single repeatable edit descriptor or an H, apostrophe, asterisk, 
or quotation mark edit descriptor. Field width, is the size of the field 
in characters. 

The internal representation of a datum corresponds to the internal 
representation of a constant of similar type. 

Apostrophe, quotation mark, and asterisk editing - An apostrophe, quotation 
mark, or asterisk edit descriptor has the form of a character constant 
and causes characters to be written from the delimited characters (including 
blanks) of the edit descriptor itself. These edit descriptors only apply 
to output. The width of the field is the number of characters contained 
between (but not including) the delimiting quotation marks, asterisks, 
or apostrophes. Within the field, two adjacent apostrophes or quotation 
marks are counted as one and not as members of a delimiting apostrophe 
or quotation mark character pair, respectively. Note that this does not 
apply in the case of asterisks used as a delimiting character pair. 

The ANSI FORTRAN Standard does not provide for apostrophe, quotation mark, or asterisk editing. (The proposed 
ANSI FORTRAN Standard provides only for apostrophe editing:!. e., the use of quotation mark and asterisk editing may 
seriously affect FORTRAN program transportability. ) 



Examples : 



WRITE(6,13) 
13 FORMATC ISN"T "*" BETTER 1 ," THAN ""H"" IS") 
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H editing - The nH edit descriptor causes character information to be 
written from the n characters (including blanks) following the H of the 
edit descriptor. An H edit descriptor can be used only for output. 

The ANSI FORTRAN Standard provides for use of the H edit descriptor in input as well as output. 



Examples : 

PRINT 22 
22 FORMAT (27H ABCDEFGH I JKLMN0PQRSTUVWXYZ,10H1 23^567890) 

WRITE(M,16) 
16 FORMATC LABEL",5H UNIT,* 41*) 



Positional editing - The T and X descriptors specify the position at 
which the next character will be transmitted to or from the record. 

An X edit descriptor specifies a position beyond the current position. 

T edit descriptors may specify a character position in either direction 
from the current position. This allows portions of a record to be read 
more than once, possibly with different editing. 

T or X edit descriptors may_ cause a character already in the record to be 
replaced. During transmission to the record, undefined positions are 
filled with blanks. The result is as if the entire record were initially 
filled with blank characters. On output, an X descriptor that specifies 
a move to position o causes the length of the record to be at least c-1 
characters. T edit descriptors by themselves do not affect the length 
of an output record. Positions beyond the last character of the record 
may be specified if no characters are to be transmitted from such positions. 

T editing 

The Te edit descriptor indicates that the transmission of the next 
character to or from a record is to occur at the cth character 
position. 

X editing 

During transmission from a record, the bx edit descriptor causes 
the skipping of b character positions following and including the 
current character position. During transmission to a record, 
blank characters are placed into b character positions beginning 
with the current character position. In both cases, the record 
becomes positioned to the first character following the last 
character processed. 
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Example : 

EXECUTION OF - 

PRINT 123^5 

123^5 FORMATOX, "ONE",17X,^FIVE*,T5, , TWO',8X,4HFOUR,T9,"T",''>HR^, , E , ,1HE) 

RESULTS IN THE PRINTING OF - 
POSITION 1 2 3 h . 5 6 7 8 9 10 11 12 13 1ft 15 16 17 18 19 20 21 22 23 
CONTENT ONE TWO THREE FOUR FIVE 

(Note that the first character output is used for vertical spacing 
control and is not printed.) 

Slash editing - The slash edit descriptor indicates the end of a record. 
During transmission from a file, the remaining portion of any current 
record is skipped and the file is positioned before the next record. If 
there is no current record, the file is positioned after the next record. 
During transmission to a file, an empty record is written as the last record 
of the file. Thus, an empty record may be written on output and an entire 
record may be skipped on input. 

Slash edit descriptor processing of adjacent records may be specified by 
the appearance of as many consecutive slashes (optionally separated by 
commas) or by preceding a single slash with a b whose value is equal to 
the number of records to be processed. 

Examples : 

PRINT 39 
39 F0RMAT(*1LINE 1*-,/,* LINE 2*/" LINE 3"///7H LINE 6) 

READ(99,ft2) REC0RD3 
hi FORMAT (2/,...) 

Colon editing - When encountered in a format specification, a colon edit 
descriptor terminates the formatted transfer of data if no input/output 
list items remain to be processed. If there are unprocessed input/output 
list items remaining, the colon edit descriptor has no effect on format 
control. Termination of format control by a colon edit descriptor causes 
the record being processed to become the preceding record. 

The ANSI FORTRAN Standard does not provide for colon editing. 



P editing - A scale factor is specified by a P edit descriptor of the 
form kP, where k is an optionally signed integer constant called the 
scale factor, fep represents 10& as a multiplier. 
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The scale factor is zero at the beginning of each input/output statement. 
It applies to all subsequently interpreted F, E, D, and G edit descriptors 
until another scale factor is encountered and established. Note that 
reversion of format control does not affect the established scale factor. 



The scale factor, k, affects editing in the following manner: 

• With F, E, D, and G input editing (provided that no exponent 
exists in the field) and with F output editing , the scale factor 
causes the externally represented number to correspond to the 
internally represented number multiplied by ten to the kth power. 

On input with F, E, D, and G editing, the scale factor has no 
effect if there is an exponent in the field. 

• On output with E and D editing, the basic real constant part 
of the quantity to be produced is multipled by the kth power 
of ten and the exponent is reduced by k. 

• On output with G editing, the effect of the scale factor is 
suspended unless the magnitude of the datum to be edited 
requires the use of E editing. In this case, the scale factor 
has the same effect as with E output editing. 



Examples : 



I nput 
field 

FORMAT 
statement 

Internal 
representation 



9876.5^ 98.7654E2 9876.54 987.65A -86A786D-A 86.4786E2 

FORMAT ( 2PF8.3, -2PE9.4, F9.4, 0PG9.4, D9.A, -2PE9.4 ) 

98.765A 9876.5 1 t 98765*1. 987.654 .0000864786 8647.86 



Internal 
representation 

FORMAT 
statement 

Output 
field 



9.87654 9876.54 9876.54 987.654 864.786 8647.86 

FORMAT ( 2PF12.2, -2PE12.4, F12.4, 1PG12.2, D12.4, -2PE12.4 ) 

987.65 .0099E+06 98.7654 9.88E+02 8.6479D+02 .0086E+06 
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Numeric editing - The I, F, E, D, and G edit descriptors specify input/ 
output editing of integer, real, double-precision, and complex data. 
The following general rules apply: 

• On input, leading blanks are not significant. Plus signs may 
be omitted. A blank character is interpreted as the character 
zero. A field of all blanks is considered to be zero. 

• On input with F, E, D, and G editing, a decimal point appearing 
in the input field overrides that portion of an edit descriptor 
specifying the decimal point location. The input field may have 
more digits than are used in approximating the value of the datum. 

• On output, the representation of a positive or zero internal value 
in the field is prefixed with blank characters. The representation 
of a negative internal value in the field is prefixed with blank 
characters followed by a minus. 

• On output, the representation is right- justified in the field. If 
the number of characters produced by the editing is smaller than 
the field width, leading blanks will be inserted in the field. 

e On output, if the number of characters exceeds the field width, 
the entire field is filled with asterisks. 

Integer editing 

The IW edit descriptor indicates that the field to be edited occupies 
W positions. The specified input/output list item must be of type 
integer. On input, the specified list item becomes defined with an 
integer datum. On output, the specified list item must be defined with 
an integer datum. 

In the input field, the character string must be in the form of an 
optionally signed integer constant. Leading blanks in the input field 
are ignored. 

The output field for the IW edit descriptor consists of zero or more 
leading blanks followed by a minus if the value of the internal datum 
is negative, followed by the magnitude of the internal value in the 
form of an unsigned integer constant without leading zeros. 

An integer constant consists of at least one digit, which may be zero. 
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Examples : 

The record at unit 94 contains the following characters - 

POSITION 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 
CONTENT 37 44-69712 22426- 96 
EXECUTION OF - 

READ(94,102) (MATRIX (I), 1=1, 7), INDEX 

102 F0RMAT(7I3,M) 

PRINT 103, INDEX, (MATRIX( I), 1=7, 1,-1) 

103 F0RMAT(I2,7I3) 

RESULTS IN - 

POSITION 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 
CONTENT 6 "9426 22712-69 4 4 37 

EXECUTION OF - 

PROGRAM I ED IT 
PARAMETER (N=6) 
DIMENSION M(N) 

M(l)=l 

DO 1 l=2,N 

1 M(l)=2*M(l-l) 
WRITE(66,2)M 
PRINT 2,M 

2 F0RMAT(6(I3)) 
END 

RESULTS IN - 



POSITION 1 

PRINTED 

RECORDED 
(unit 66) 



2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 
1 2 4 8 1 6 3 2 
1 2 4 8 16 3 2 
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Real, Double-precision, and complex editing 

The F, E, D, and G edit descriptors specify editing for real-double- 
precision, and complex data. Input/output list items corresponding 
to F, E, or G edit descriptors must be real or complex. The D edit 
descriptor is applied only to double-precision input/output list 
items. An input list item becomes defined with a datum whose type 
is the same as that of the list item. 

F editing - The FW.d edit descriptor indicates that the field occupies 
W positions, the fractional part of which consists of d digits. 

The input field consists of an optional sign followed by a string of 
digits optionally containing a decimal point. This basic form may be 
followed by an exponent of 10 having one of the following forms: 

• Signed integer constant. 

e E followed by an optionally signed integer constant. 

• D followed by an optionally signed integer constant. 

An exponent containing a D is processed identically to an exponent 
containing an E. 

The output field consists of blanks, if necessary, followed by a 
minus if the internal value is negative, followed by a string of 
digits that contains a decimal point and represents the magnitude 
of the internal value. This representation is modified by the 
established scale factor and is rounded to d fractional digits . 
If the output field value is less than one, a single zero is 
written immediately to the left of the decimal point, space 
permitting. If the output field value is zero and d is zero, a 
single zero is written. In no other cases are leading zeros 
written. 



Examples : 



1 


In 
2 


put 
3 


field 
h 5 


positions 
6 7 8 9 


10 


F edit 
descriptor 


Internal 
representation 


1 


7 


7 


6 


. 


1 


9 


7 


6 




F9-^ 


1776.1976 


- 


1 


7 


7 


6 


• 


1 


9 


7 


6 


F10. 4 


-1776.1976 


- 


1 


7 


7 


6 


• 


1 


9 


7 


6 


F9.A 


-1776.197 


1 


9 


7 


7 














F4.0 


1977. 


1 


9 


7 


7 














Fk.k 


.1977 


1 


9 


7 


7 














F2.0 


19. 


- 


1 


k 


9 


2 


E 


- 


3 






F8.0 


-1 .492 


6 







2 


3 


D 


2 


3 






F8.3 


602300000000000000000000 
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Internal 
representation 

3.1415926 
-3. 1415926 

747 







F edit 
descriptor 

F10. 5 

F7.4 

F4.0 

F8.6 

F8.5 

F7.6 



Output field positions 
123456789 10 



5 9 









3 


• 


1 


4 


1 


- 


3 


. 


1 


4 


1 


6 




7 


4 


7 


• 













. 

























• 

















. 























E editing - The EW.d edit descriptor indicates that the external field 
occupies W positions, the fractional part of which consist of d digits. 

The form of the input field is the same as for F editing. 
The form of the output field for a scale factor of zero is 



M[o].a>i #2 ... x d _ x x d exp 






where X\X2 



, x-j are the d most significant digits of the 
rounded datum, and 

exp is a decimal exponent of one of the following 
forms: 



Absolute value 
of exponent exp 


Output form 
of exponent 
(y is a digit) 


exp = 


E+00 


o< exp <ioo 


E±2/l2/2 


ioo< exp <i,ooo 


+2/ 12/22/ 3 


exp >1,000 


±2/12/22/32/4 



An I exp I < 1 , 000 causes the entire field to be shifted 
left one "position to provide for yiy. Unless: blank, the 
initial character of the field replaces the last 
character of the previous field or is lost if no 
previous field exists. Appropriate specification 
of field width W circumvents this problem. 



The ANSI FORTRAN Standard does not provide for more than three digits in the output form of exponent. 
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The scale factor k controls decimal normalization. If -d < k < 0, 
there are \k\ leading zeros and d -\k\ significant digits after the 
decimal point. If 0<k<(d+2) , there are k significant digits to the 
left of the decimal point and d-k+1 significant digits to the right 
of the decimal point. Other values of k are not permitted. 



Examples : 

Input field positions E edit Internal 

1 2 3 4 5 6 7 8 9 10 11 12 descriptor representation 

+ 10 4 8 5 7 5.75 Ell. 2 1048575.75 

-10 4 8 5 7 5-75 Ell .0 -1048575.75 

3 8 El 1.11 .00000000038 

1 • 5 9 2 E 3 E12.3 1592. 

65536E-5 E8.3 .00065536 

6 5 5 3 6 . E - 5 E9.3 .65536 

-32.768D04 E10.3 -327680 



Internal E edit Output field positions 

representation descripto r 1 23456789 10 11 

365.26 E10.2 . 3 7 E + 3 

-365.26 El 1.5 -.36526E + 03 

.000000099 El 1.3 0.990E-07 



D editing - D editing is identical to E editing with the following two 
exceptions : 

• The list item corresponding to a D edit descriptor must be of 
type double precision, and 

o The output form of the exponent begins with the letter D 
instead of the letter E when <\.exp\< 100. 
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Examples : 



Input field positions D edit 

1 2 3 A 5 6 7 8 9 10 11 12 descriptor 



- 


9 


2 9 


6 


1 2 . 


8 


2 


4 E 







8 


2 


4 . 






- 


• 


7 5 








1 


. 8 


7 


2 1 4 


4 


9 


. 7 


1 


D 1 


8 


2 


4 










Internal 






representat 


ion 






•793351 








-7607. 







7 9 1 



19 6 7 



1 



D edit 
descriptor 

D11.6 

D12.3 

D12.1 



D11.3 

D5.0 

D4.0 

D7.4 

D12.9 

D10.2 

D3.3 



I nternal 
representation 

-929612. 791 

824. 

824. 
-.75 

1.872141967 

4971O0O0O0O0. 
.824 



Output field positions 

1 2 3 4 5 6 7 8 9 10 11 12 

• 793351D + 00 

-0.761D + 04 

. 1 D + 1 



G editing - The GW.d edit descriptor indicates that the field 
occupies w positions with d significant digits. 

G input editing is the same as F input editing. 

Representation in the output field depends on the magnitude of the 
datum being edited. If N is the magnitude of the internal datum, 
its value determines the editing as follows : 



Magnitude of datum 


Equivalent edit descriptors 


0.1<N<1 
1<N<10 

10 d - 2 <N<10^ 1 
10 d_1 <N<10' f 
N <0.1 or N>10 


F(w-4) .d,4X 
F(w-4) . ((2-1) ,4X 

F(M-4) .1,4X 
F(y-4).0,4X 
kP,T3W.d 



where k is the scale factor in effect. 
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The scale factor is effective only if the magnitude of the datum 
exceeds the range for effective F editing. 



Examples : 



+ 
4 
7 



Input field positons 
23^56789 10 11 12 



6 2 



8 
7 
2 



9 
6 

7 
2 



2 
8 
1 





4 






9 2 1 
E - 2 



D 1 



G edit 
descriptor 

G5.1 

G10.2 

G9.4 

G12.1 

G5.0 



Internal 
representation 

6290. 

-.629 

878.4921 

47.21 

720000000000. 



Internal 
representation 

-324.876 

.487295343397 

-72.59 

.000000000019 

.000000000019 

100. 

100.0001 



G edit 
descriptor 

G12.6 

G10.5 

G10.3 

G12.2 

G9.1 

G12.2 

G12.2 



Output field positions 
23456789 10 11 12 



3 

4 



2 

8 
7 



4 

7 
2 



8 

6 



2 E - 



7 6 



100000 



9 

1 
1 
1 



E 

E 
E 



+ 
+ 



1 








3 
3 



I 



Complex editing - A complex datum consists of a pair of separate 
real data. Its editing must be specified by two successively 
interpreted F, E, or G edit descriptors. The first of the edit 
descriptors specifies editing for the real part; the second for 
the imaginary part. The two edit descriptors may differ. Note 
that nonrepeatable edit descriptors may appear between two suc- 
cessive F, E, or G edit descriptors. 

O editing - The OW edit descriptor indicates the processing of a 
list item of type integer, real, Hollerith, Boolean, or logical 
and a field width of W positions. 



The ANSI FORTRAN Standard does not provide for O editing. 



On input, the field must contain a string of from one to twenty- two 
octal digits representing a precise binary value to be stored into 
the list item. This value is right- justified in the list item if 
fewer than 'twenty- two octal digits are contained in the field. 
Unspecified bit-positions are cleared to zero. A blank field is 
considered a field containing all zeros. If the first nonblank character 
in the field is a minus, the one's complement of the value is stored. 
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On output, the internal representation of the list item is converted 
to octal and the rightmost w octal digits are right-justified in the 
field. If the field is larger than twenty-two positions, leading 
blank characters are output. 

Z editing - The ZW edit descriptor indicates the processing of a 
list item of type integer, real, Hollerith, Boolean or logical and 
a field width of W positions . 

The ANSI FORTRAN Standard does not provide for Z editing. 

On input, the field must contain a string, of from one to sixteen 
hexadecimal characters representing a zero or positive integral 
value (in the base-16 number system) to be stored into the list 
item. This value is right- justified in the list item if fewer 
than 16 hexadecimal characters are contained in the field; leading 
zeros are assumed. A blank field is assumed a field of all zeros. 
If the first nonblank character in the field is a minus, the one's 
complement of the value is stored. 

On output, the internal representation of the list item is converted 
to a zero or positive hexadecimal value and the rightmost w digits 
are right- justified in the field. If the field is larger than 16 
positions, leading blank characters are output. 

L editing - The LW edit descriptor indicates the processing of a 
logical list item and an input or output field width of W positions. 
The specified input/output list item must be of type logical. On 
input, the list item becomes defined with a logical datum. On output, 
the list item must be defined with a logical datum. 

The input field consists of a T for true or an F for false optionally 
followed by additional characters. The field may contain leading blank 
characters. 

If W<5, the output field consists of W-l blanks followed by a T or F 
depending on the value of the internal datum. If W>5, the output 
field contains the letters TRUE or FALSE preceded by w-4 or W-5 blank 
characters , respectively . 
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Examples : 



Input fie 
12 3^5 


Id 
6 


pos 
7 


it ions 
8 9 10 


11 


12 




L edit 
descriptor 


Internal 
representation 


T 
















L1 


(true) 


TRUE 
















Lit 


(true) 


F 
















L3 


(false) 


F A 


L 


S 


E 










L12 


(false) 


T 


1 


2 


3 










L7 


(true) 




F 


A 


B 


C 


T 


F 




L9 

L12 

L12 


(false) 

(true) 

(false) 


Internal 
representati 


on 






L ed 
descri 

L6 


it 
ptor 


1 


Output fie 
2 3^5 


Id positions 
6 7 8 9 10 11 12 


(true) 




T R U 


E 


(false) 








L12 










FALSE 


(true) 








L10 










TRUE 


(false) 








LI 






F 






(true) 








L1 






T 






(false) 








L3 








F 





A editing - The AW edit descriptor is used with an input/output list 
item of type logical, integer, real, or complex. On input, the input 
list item becomes defined with Hollerith data. On output, the output 
list item must be defined with Hollerith data. Integer, real, and 
logical input/output list items can contain up to eight Hollerith 
characters; complex up to sixteen, w specifies a field of one to 
eight characters. 

If the specified field width W for A input is greater than or equal to 
eight, the rightmost eight characters of the input field form the 
internal representation. If the specified field width W is less than 
eight, the W characters from the input field are left-justified with 
8-W trailing blank characters added to form the internal representation. 
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If the specified field width W for A output is greater than eight, the 
output field consists of W-8 blanks followed by the eight characters 
from the internal representation. If the specified field width W 
is less than or equal to eight, the output field consists of the left- 
most w characters from the internal representation. 

Input/output list items of type complex may contain up to sixteen char- 
acters in two storage units (computer words) . Two A edit descriptors 
are required when eight or more characters are to be transferred. In 
this case, both are applied to a single input/output list item; the 
first to the first storage unit, the second to the second storage unit. 

Examples : 



Input field positions 
2 3k 5 6 78 9 10 11 12 



A 


B 


C 


D 


E 


F 


A 


B 






1 


2 


1 


N 


D 


E 


X 




R 


T 


C 









G H I 



K L 



Item A edit Internal 

type descriptor(s) representation 

I nteger A8 8HABCDEFGH 

Real A7 8HAB 12 

Complex A8,A3 16HINDEX 6 

Integer A3 8HRTC 



I nternal 
representation 

8HABCDEFGH 

8HABCDEFGH 

16HA1B2C3D4E5 

8HA- FORMAT 



I tern 

type 

Integer 
Real 
Complex 
Integer 



A edit Output field positions 
descriptor 1 23^56789 

A8 ABCDEFGH 



A9 

A8.A1 

A3 



A B 
A 1 B 
A - F 



C D 
2 C 



E F G H 
3 D k E 



R editing - The RW edit descriptor is used with an input/output list 
item of type integer, real, or complex. On input, the input list item 
will become defined with W characters of Hollerith data. On output, the 
output list item must be defined with W characters of Hollerith data. 
RW edit descriptor actions are identical to those of the AM edit descriptor 
with two exceptions. 



Characters in an incompletely filled input list item are right 
justified with the remainder of that list item containing binary 
zeros. 

Partial output of an output list item's characters is from its 
rightmost character positions. 



The ANSI FORTRAN Standard does not provide for an R edit descriptor. 
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Examples: 



Input field positions I tern 

1 2 3 k 5 6 7 8 9 10 11 12 type 



A B 
A B 
R T C 



C D 



E F 
1 2 



G H | J K L 



R edit 
descriptor 

Integer R 

Real R7 

Integer R3 



Internal 
representation 

8HABCDEFGH 

7RAB 1 2 

3RRTC 



Internal 
representation 

8HABCDEFGH 

8HABCDEFGH 

8RA- FORMAT 



I tern 

type 

Integer 

Real 

Integer 



R edit Output field positions 

descriptor 1 23^56789 

R8 



R9 

R6 



ABCDEFGH 

ABCDEFGH 
FORMAT 



3.6.8 BUFFERED INPUT/OUTPUT OPERATIONS 



BUFFERO F UT «attlnt a s ndard **" "" ^'^ *" ^^ in " ut/out P ut °P««ion. or for the BUFFER IN or 



Buffered input/output operations differ from those described in 3.6 6 in 
several resects First, the two statements that initiate a transfer of 
data allow the subsequent execution sequence to proceed simultaneously 
with the actual transfer. Next, certain utility functions may be refer- 
enced to cause a delay in an execution sequence pending completion of a 
buffered input/output operation, and to determine certain characteristics 
0i th ^ °P eratlon "Pon its termination. Finally, the amount of data is 
specified m terms of CRAY-1 computer words with no consideration given 
the type or format of information contained. 
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The BUFFER IN and BUFFER OUT statements 

The two statements used for buffered input/output operations are the 

BUFFER IN and BUFFER OUT statements. Their forms are 



buffer IN (u,m) (bloc, eloc) 
buffer out (u, m ) (bloc, eloc) 



where : 



u 



m 



bloc 



is a unit specifier expressed as an integer or as a 

Hollerith expression of up to eight characters. 

is a mode specifier expressed as an integer expression 
indicating full record processing if zero or greater and 
partial record processing if less than zero. 

is the symbolic name of that variable or array element 
marking the beginning location of the buffered I/O transfer, 
and 



eloc is the symbolic name of that variable or array element 

marking the ending location of the buffered I/O transfer. 

BUFFER IN causes information to be read; BUFFER OUT causes information to 
be written. Execution of either statement attempts initiating the transfer 
of {eloc - bloc + 1) CRAY-1 computer words between the current record at 
unit u and those contiguous memory locations beginning with bloc and 
concluding with eloc. If unit u is completing a buffered input/output 
operation initiated earlier, the execution sequence is delayed at the 
onset of BUFFER IN or BUFFER OUT statement execution until that earlier 
operation terminates. Upon termination, execution of the BUFFER IN or 
BUFFER OUT statement completes as though no delay occurred. 

in determining the number of computer words to be transferred, consideration 
must be given the data type of the symbolic name used for eloc. If this 
name is of type double precision or complex/the location of the first word 
in its two-word form of representation will mark the ending location of the 
data transfer. 

The mode specifier, m, controls the position of the record at unit u after 
the data transfer has taken place. If the value of m is greater than or 
equal to zero, full record processing is called for. The record position 
following this mode of transfer is always between the current record (the 
record to or from which the transfer occurred) and the next record. For a 
value of m less than zero, partial record processing takes place. In a 
BUFFER IN statement, this specifies that the record being transferred from 
will be positioned ready to transfer its (n+l)th word if the nth word was 
the last transferred. In a BUFFER OUT statement, this specifies that the 
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record will be left positioned to receive additional words. A special 
buffered output operation concludes a series of partial record buffered 
output transfers. In this case, a BUFFER OUT statement is used in which 
bloc equals eloc+1 to produce a zero word transfer that also concludes 
the record being created. 

File and record positioning for buffered input/output operations are as 
described for non-buffered input/output operations (see 3.6.6). 

Example : 

A BUFFER IN statement initiates the transfer of 1000 words from unit 
32. Computation then proceeds on data not related to that being 
transferred. A second BUFFER IN statement is encountered upon com- 
pletion of this computation, causes a delay in the execution sequence 
until the last of the 1000 words has been received, then initiates 
a transfer of another 500 words from unit 32. While these words are 
being transferred, the execution sequence proceeds. A BUFFER OUT 
statement initiates the transfer of the first 1000 words to unit 22. 
Full record processing is called for by the mode specifier being zero 
in all cases. 

PROGRAM XFR 
PARAMETER (I NUN I T=32) 

DIMENSION A(1000), B(2, 10, 100), C(500) 
BUFFER IN(INUNIT,0) (A(1) ,A(1000) ) 
DO 10 1=1 ,100 
10 B(1,1,|)=B(1,1,|) + B(2,1,l) 

BUFFER IN(INUNIT,0) (C(l) ,C(500) ) 
BUFFER 0UT(22,0) (A(l) ,A(1000) ) 

END 

The UNIT function 

Once a BUFFER IN or BUFFER OUT statement has been executed, the normal 
execution sequence continues concurrent with the actual transfer of data. 
If the utility function UNIT is referenced in this execution sequence, 
continuation of the sequence is delayed pending completion of the transfer 
at that unit designated by its single integer argument. 
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Upon completion of the transfer, the UNIT function provides one of the 
following real data type values to the expression in which it is referenced: 

• -2.0 to indicate successful completion of a partial record read 
operation (BUFFER IN with m < 0) without encountering the end of the 
current record, 

• -1.0 to indicate successful completion of all other transfers, 

• 0.0 to indicate reading of an end-of-file or end-of-data record, 

• 1.0 to indicate occurrence of a disk parity error during reading, or 

• 2.0 to indicate other disk malfunctions during reading or writing. 

Exampl e : 

PROGRAM TESTUNIT 
DIMENSION M(200,5) 

10 BUFFER IN (32, 0) (M(1 ,1) ,M(200,5) ) 
IF (UN1T(32))11 ,13,13 

11 D012 J=1,5 
D012 1=1,200 

12 M(I,J)=-M(I,J) 

. BUFFER OUT (22, 0) (M(1 ,l) ,M(200,5) ) 
IF (UNIT(22))10,13,13 

13 END 

The LENGTH function 

If the utility function LENGTH is referenced while a buffered input/output 
operation is in progress at that unit designated by its single integer 
argument, the execution sequence will be delayed until the transfer is 

complete. LENGTH will then provide to the expression in whic h it is refer- 

enced an integer value reflecting the number of CRAY-1 computer words 
successfully transferred. This value is zero if an end-of-file or end- 
of-data record is read. 
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Example : 



PROGRAM PGM 
DIMENSION V(16384) 
10 BUFFER IN (32,-1) (V(1) ,V(1638A)) 
X= UNIT(32) 
K= LENGTH (32) 
I F(X) 1 1 , 14, 14 
DO 12 1=1 ,K, 1 



11 
12 

13 



IFMD.EQ.'KEY') GO TO 13 
IF(X.E0_.-2.0) 10, 14 



14 END 



3.6.9 FORMATTED DATA ASSIGNMENT 



The ANSI FORTRAN Standard does not provide for formatted data assignment operations. 



Formatted data assignment operations define entities by transferring data 
between input/output list items and internal records. Like other assign- 
ment statements, formatted data assignment statements only perform internal 
data transfers. Like formatted input /output statements, formatted data 
assignment statements specify an input/output list and invoke format 
control during their operations. 

The two formatted data assignment statements are ENCODE and DECODE. 

ENCODE and DECODE statements 

The forms of the ENCODE and DECODE statements are: 



encode {n,f,dent) Liolistl 
decode {n,f,sent) ZiolistJ 



where n is the number of characters to be processed, must not 
exceed 152, and is specified as a non-zero integer 
expression; 

/ is a format identifier specified as the name of an array 
containing a format specification, the statement label 
of a FORMAT statement, or an integer variable containing 
the statement label of a FORMAT statement ,- 
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dent is the symbolic name of a destination variable, array 

element, or array that contains the n characters processed 
by the ENCODE statement; 

sent is the symbolic name of a source variable, array element, 

or array from which the n characters to be processed by the 
DECODE statement originate; and 

iolist is an input/output list specified the same as for formatted 

input/output statements (see 3.6.6), contains input list items 
in a DECODE statement, and contains output list items in an 
ENCODE statement. 



The ENCODE statement 

The ENCODE statement produces a sequence of n characters from values 
contained in the output list items specified in iolist under control 
of the format specification identified by f. The character sequence 
is stored into a variable, array element or array identified by dent. 

The DECODE statement 

The DECODE statement processes a sequence of n characters contained in 
the variable, array element, or array identified by sent under control 
of the format specification identified by /. The resulting values 
define the input list items specified in iolist. 

3.6.10 THE MAIN PROGRAM 

A main program is a program unit that does not contain a FUNCTION, SUB- 
ROUTINE, or BLOCK DATA statement. An optional PROGRAM statement may be 
the first statement of a main program. There must be exactly one main 
program in an executable program. Execution of an executable program 
begins with the first executable statement of the main program. 

The PROGRAM statement 

The form of a PROGRAM statement is 



program pgm L{€hih 2 ... ^„U)3 



where pgm is the symbolic name of the main program in which the PROGRAM 
statement appears, and 

h\hi. . .h is a character string of n characters. 

Use of the PROGRAM statement is optional and, if used, it must be the 
first statement of the main program. 
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The symbolic name pgm is global and must not be the same as the name 
of an external procedure, block data subprogram, or common block in the 
same executable program. The name pgm must not be the same as any local 
name in the main program. It may be followed by a parenthesized character 
string that has no effect on the executable program. 

Tha ANSI FORTRAN Standard does not provide for a block data subprogram name or for the PR OGRAM statement. 

Main program restrictions 

A main program may contain any statements other than BLOCK DATA, FUNCTION 
SUBROUTINE, or RETURN statements. It may contain a single PROGRAM 
statement. A main program must not be referenced from a subprogram or from 
itself. 

Examples : 

PROGRAM A1B2C3D4 
PROGRAM X (INPUT, OUTPUT) 
PROGRAM MAIN 
PROGRAM Z123A567 

3.6.11 FUNCTIONS AND SUBROUTINES 
Categories of functions and subroutines 

Procedures - All functions and subroutines are procedures. The four 
categories of procedures are: 

• Intrinsic functions, 

• Statement functions, 

• External functions, and 

• Subroutines . 

Intrinsic functions, statement functions, and external functions are 
generally referred to as functions. (Utility procedures are separately 
described in 3.6.12.) 
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External functions 

The categories of external functions are: 

• Function subprograms, which are program units specified 
in the FORTRAN language, and 

• Non-FORTRAN function subprograms which are not specified 
in the FORTRAN language. 

Subroutines 

There are two categories of subroutines: 

• Subroutine subprograms, which are program units specified 
-in the FORTRAN language, and 

• Non-FORTRAN subroutine subprograms which are not specified 
in the FORTRAN language. 

Appendix F describes the method for programming non-FORTRAN function and 
subroutine subprograms using CAL, the CRAY-1 Assembly Language. 

Referencing functions 

A function is referenced in an expression and supplies a value to the 

expression. This value is the value of the function at the time that the 

expression containing its reference is evaluated. 

An intrinsic function may be referenced in the main program or in any 

procedure subprogram of an executable program. 

A statement function may be referenced only in the program unit in which 

the statement function statement appears. 

An external function may be referenced by function or entry name within 

any other procedure subprogram or the main program of the executable 

program. A subprogram must not reference itself, either directly or 

indirectly. 

Form of a function reference - A function reference is used to reference 
an intrinsic function, statement function, or external function. The 
form of a function reference is 



fun ( [ a [ ,a] . . . ] ) 



where fun is the symbolic name of a function or of an entry to a 
function , and 

a is an actual argument. 
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The type of the result of a statement function or external function refer- 
ence is the same as the type of the function name and is specified in the 
same manner as for variables and arrays. The type of the result of each 
intrinsic function is specified in Appendix B. The type of each actual 
argument a and the number of actual arguments specified in a function 
reference must agree with the (dummy) arguments defined in the specification 
of the function being referenced. 

Execution of function references - A function reference appears only as a 
primary in an arithmetic or logical expression. Execution of a function 
reference in an expression causes the evaluation of the function identified 
by fun. 

Return of control from a referenced function completes execution of the 
function reference. The value of the function is then available to the 
expression containing the reference and being evaluated. Actual and dummy 
arguments associated during a function reference remain associated after- 
wards . 

Examples : 

REFERENCE COMMENTS 

SIN(ALPHA) Intrinsic function reference 

FUNCTI0N(INT, REAL, DBL,C0MP, LOG) Statement or external function reference 
RANF( ) Intrinsic function reference 



Intrinsic functions 

Intrinsic functions are prespecified and have special meanings. Their 
specific names, function . definitions , and types of arguments and results 
appear in Appendix B. In this table, integer, real, double-precision and 
complex data types are denoted by the letter I, R, D and C, respectively. 



The ANSI FORTRAN Standard "Basic External Functions" are incorporated into the list of intrinsic functions 
presented in Appendix B, and are not separately identified. 



Referencing intrinsic functions - An intrinsic function is referenced by 
using its name, fun, as a primary in an expression. An intrinsic function 
reference produces results dependent on the values of the actual arguments. 
The resulting value is available to the expression that contains the func- 
tion reference. 
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The actual arguments that constitute the argument list must agree in type, 
number and order with those described in Appendix B and may be any 
expression of the specified type. 

Intrinsic function restrictions - Arguments that. would cause an undefinable 
result or a result that would exceed the maximum numeric representation 
permitted cause the result of the function to become undefined. 

Examples : 

AMEDIAN = (AMIN1(A,B,C,D)+AMAX1 (A,B,C,D))/2.0 

T = SIN(THETA)/COS(THETA) 
T = TAN(THETA) 

Statement functions 

A statement function is a procedure specified by a single statement that is 
similar in form to an arithmetic or logical assignment statement. This is 
a statement function definition statement and can only appear after the 
specification statements and before the first executable statement of the 
program unit in which it is referenced. Since it is not a part of the 
normal execution sequence, a statement function definition statement is 
classified as a non-executable statement. 

Form of a statement function definition statement - The form of a state- 
ment function definition statement is 



fun {Id [,d] ...])= e 



where fun is the symbolic name of the statement function, 

d is a statement function dummy argument, and 

e is an expression. 

The relationship between fun and e must conform to the assignment rules in 
table 3-7. The type of the expression e may be different from the type of 
the statement function name fun. 

Each d is a variable name called a statement function dummy argument. The 
names of variables that appear as dummy arguments of a statement function 
have a scope of that statement only. A given symbolic name may appear 
only once in a single dummy argument list. Statement function dummy argu- 
ments serve only to indicate the order, number, and type of arguments for 
a single statement function. The same symbolic names may be used to identify 

I dummy arguments of the same type in a different statement function definition 
statement and variables of the same type appearing elsewhere in the program 
unit including dummy arguments of a subprogram. They must not be used to 
identify any other entity in the program unit except a common block. 
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Each primary of the expression e must be: 

• A constant, 

• The symbolic name of a constant, 

• A statement function dummy argument referenced as a variable, 

• A reference to a variable used elsewhere in the same program unit, 

• An intrinsic funtion reference, 

• A reference to a statement function for which the statement 

■ function definition statement appears in preceding lines of the 

program unit, 

• An external function reference, or 

• An expression enclosed in parentheses. 

If a statement function dummy argument name is the same as the name of 
another entity, the appearance of that name in the expression portion of 
| a statement function definition statement is a reference to the statement 
function dummy argument. A dummy argument that appears in a FUNCTION or 
SUBROUTINE statement may be referenced in the expression of a statement 
function statement within that subprogram. 

Examples : 

R00T(A,B,C,SIGN) = (-B4SIGN*SQRT(B**2-Jj.*A*C))/(2.*A) 
DISCRIM(A,B,C)= B**2-/t.*A*C 
CIRCUM(R)=6.2831852*R 
AREA(R)=3.1*n5926*R**2 
VOL (R) =4.1 88790 1*R**3 
| VOL ( )=k. 1 88790 1*R**3 (where R appears elsewhere in the same program unit) 

Referencing statement functions - A statement function is referenced by 
using its function reference as a primary in an expression. 

Execution of a statement function reference results in: 

• Evaluation of actual arguments that are expressions, 

• Association of actual arguments with corresponding dummy 
arguments , and 

• Evaluation of the expression e. 
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The resulting value is available to the expression that contains the func- 
tion reference. 

The actual arguments, which constitute the actual argument list, must 
agree in order, number, and type with the corresponding dummy arguments. 
An actual argument in a statement function reference may be any expression 
involving | one or more operands . 

When a statement function reference is executed, its actual arguments must 
be defined. 

Statement function restrictions - A statement function may be referenced 
only in the program unit that contains the statement function definition 
statement . 

A statement function definition statement can reference another statement 
function that precedes the reference. The symbolic name used to identify^ 
a statement function must not appear as a symbolic name in any specification 
statement other than a type statement (to specify the type of the function) 
or as the name of a common block in the same program unit. 

An external function reference in the expression of a statement function 
definition statement must not cause a dummy argument of the statement 
function to become undefined or redefined. 

The symbolic name of a statement function is a local name and must not be 
the same as the name of any other entity in the program unit other than 
that of a common block. The symbolic name of a statement function may not 
be an actual argument and must not appear in an EXTERNAL statement. 

A statement function definition statement in a function subprogram must 
not reference that function subprogram. 



Examples : 

DISCRIM(A,B,C)=B**2-4.*A*C 
ROOT(A,B,C,SIGN)=(-B+SIGN*SQRT(DISCRIM(A,B,C))) /(2.*A) 

IF(DISCRIM(TERM1,TERM2,TERM3))25,15,15 
15 R00T1 = R00T(TERM1,TERM2,TERM3,+1.0) 
R00T2 = R00T(TERM1 ,TERM2,TERM3,-1 .0) 
• 25 END 
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PARAMETER (M=1 00 , N=4 , P I =3 Jl ^ 1 5926) 
DIMENSION RADTAB(M,N) 
VOL(R) = (k.*Pl*R**3)/3. 
AREA(R) = PI*R**2 
CIRCUM(R) = 2.-*PI*R 

DO 20,1=1 ,M 

IF(RADTAB(|,1))30,20,10 
10 RADTAB(I,2) = CI RCUM(RADTAB( I , 1) ) 

RADTAB(|,3) = AREA (RADTAB( 1,1)) 

RADTAB(l,A) =V0L(RADTAB(|,1)) 
20 CONTINUE 

30 END 

External functions 

An external function is specified external to the program unit that refer- 
ences it. An external function is a procedure specified by a function 
subprogram or some other means. 

Function subprograms - A function subprogram has a FUNCTION statement as 
its first statement. It may also contain one or more ENTRY statements. 

FUNCTION statement forms - The forms of a FUNCTION statement are: 













FUNCTION 


funBtdLrdl. 


..1)1 




INTEGER FUNCTION 


funl(ld£,dl. 


..1)1 




REAL FUNCTION 


fun\Sldl,dl. 


..in 




DOUBLE PRECISION FUNCTION 


funlilrfL.*}. 


..in 




DOUBLE FUNCTION 


funL( LdL,dl. 


..])! 




COMPLEX FUNCTION 


funt(ldl,dl. 


.1)1 




LOGICAL FUNCTION 


funtddl.dl. 


.1)1 



where: fun is the symbolic name of the function subprogram in 
which the FUNCTION statement appears and 

d is a dummy argument representing a variable, array, or 
external procedure name. 
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The symbolic name of a function subprogram must appear as a variable name 
in the function subprogram. During every execution of the subprogram, this 
variable must become defined and, once defined, may be referenced or be- 
come redefined. The value of the function is the value of this variable 
when a RETURN or END statement is executed in the subprogram. The type 
of this value is implicit to the function name, fun, unless INTEGER, REAL, 
DOUBLE PRECISION or DOUBLE, COMPLEX, or LOGICAL is specified to cause its 
being overridden. 

The ANSI FORTRAN Standard does not provide for the DOUBLE FUNCTION statement. 

A function subprogram may define one or more of its dummy arguments to 
return values in addition to the value of the function. 

Referencing external functions - An external function is referenced by 
using its reference as a primary in an expression. A reference to an 
entry in a function may be similarly used. 

Execution of external function references - Execution of an external 
function reference or a reference to an external function entry results 
in: 

• The evaluation of actual arguments that are expressions, 

• The association of actual arguments with the corresponding 
dummy arguments, and 

• The actions specified by the referenced function. 

The type of the function or function entry name in the reference must be 
the same as the type of the function or function entry name in the refer*-- 
enced function. 

Actual arguments for external functions - The actual arguments in an 
external function reference must agree in order, number, and type with 
the corresponding dummy arguments in the referenced function or function 
entry. The use of a subroutine name as an actual argument is an exception 
to the rule requiring agreement of type because subroutine names do not 
have a type. 

An actual argument in an external function reference must be one of the 
following : 

• An expression, 

• An array name, 

• An array element name, 

• An intrinsic function name, or 

• An external procedure name. 

The ANSI FORTRAN Standard does not provide for intrinsic function names as actual arguments. 
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Note that an actual argument in a function reference may be a dummy 
argument that appears in a dummy argument list within the subprogram 
containing that reference. 

Function subprogram restrictions - - A function subprogram may contain any 
statement other than a BLOCK DATA, SUBROUTINE, PROGRAM, or a second 
FUNCTION statement. 

The symbolic names of external functions and external function entries 
are global names and must not be the same as any other global name. 

The symbolic name of a function specified by a FUNCTION statement must 
not appear in any other non-executable statement except for a type state- 
ment, and must only appear as a variable in executable statements. 

If the type of a function is specified in a FUNCTION statement, the 
function name must not also appear in a type statement. (Redunant 
type specifications are not allowed.) 

In a function subprogram, the symbolic name of a dummy argument is 
local and must not appear in an EQUIVALENCE, PARAMETER, DATA, or 
COMMON statement except as a common block name. 

A function specified by a subprogram may be referenced within any other 
procedure subprogram or the main program of the executable program. A 
function subprogram must not directly or indirectly reference itself. 

Examples : 

PROGRAM MAIN 

PARAMETER(M=6,N=1000,KEY=612338668A) 

DIMENSION MATRIX(M,N) 

READ 2, ( (MATRIX( I ,J) ,1=1 ,M) ,J=1 ,N) 

2 FORMAT (110) 

IF(MATCH(MATRIX,M,N,KEY))9,9,3 

3 PRINT 4, KEY 

A F0RMAT(" THE VALUE ",110," EXISTS IN THE INPUT DATA.") 
9 END 

FUNCTION MATCH(INTTBL,K,L,ITEM) 

DIMENSION INTTBL(K,L) 

MATCH = 

DO 1 1=1 ,K 

DO 1 J=1,L 
1 , IF(INTTBL(! ,J) .EQ_. ITEM)MATCH=MATCH+1 

END 
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Subroutines 

A subroutine is a procedure that may be specified by a subroutine subprogram 
or some other means. It is specified external to the program unit that 
references it. 

One or more dummy arguments of a subroutine subprogram may become defined 
or redefined to return results. Note that entities specified in a COMMON 
statement in the subroutine may also be defined for this purpose. 



Subroutine subprograms - A subroutine subprogram is a program unit that 
has a SUBROUTINE statement as its first statement. It may also contain 
one or more ENTRY statements. 

SUBROUTINE statement form - The form of a SUBROUTINE statement is 



SUBROUTINE Slib [ (eZ[,<2] ... )] 



where sub is the symbolic name of the subroutine, and 

d is a dummy argument representing a variable name, an 
array name, or an external procedure name. 

Subroutine reference - A subroutine is referenced by a CALL statement. 
Form of a CALL statement - The form of a CALL statement is 



call sub [ ( a [ » a ] ...)] 



where sub i s the symbolic name of a subroutine or a subroutine entry, and 
a is an actual argument. 



Execution of a CALL statement - Execution of a CALL statement results in: 

• The evaluation of actual arguments that are expressions, 

• The association of actual arguments with the corresponding dummy 
arguments, and 

• The actions specified by the referenced subroutine. 

Return of control from the referenced subroutine to the first executable 
statement following the CALL statement completes the execution of the CALL 
statement. Actual and dummy arguments associated during CALL statement 
execution remain associated afterwards. 

A subroutine may be referenced within any other procedure subprogram 
or the main program of the executable program. A subprogram must not 
directly or indirectly reference itself. 
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When a CALL statement is executed, the referenced subroutine must be one 
of the subroutines in the executable program. 

Actual arguments for subroutines - The actual arguments in a subroutine 
reference must agree in order, number, and type with the corresponding 
dummy arguments in the dummy argument list of the referenced subroutine. 
The use of a subroutine name as an actual argument is permitted and is an 
exception to the rule requiring agreement of type. 

An actual argument in a subroutine reference must be one of the following: 

• An expression, 

• An array name, 

• An array element name, 

• An intrinsic function name, or 

• An external procedure name. 

Note that an actual argument in a subroutine reference may be a dummy 
argument that appears in a dummy argument list within the subprogram 
containing the reference. 

Subroutine subprogram restrictions - A subroutine subprogram may contain 
any statement other than a BLOCK DATA, FUNCTION, PROGRAM, or a second 
SUBROUTINE statement. 

The symbolic names of subroutines and subroutine entries are global names 
and must not be the same as any other global name or any local name in the 
referencing program unit. 

In a subroutine subprogram, the symbolic name of a dummy argument is 
local and must not appear in an EQUIVALENCE, PARAMETER, DATA, or COMMON 
statement. It can be the same as a common block name. 

Example : 

PROGRAM RKN 



DIMENSION TABLE (1226) 
CALL SORT (TABLE, 1226) 
END 
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SUBROUTINE SORT(VECTOR, LENGTH) 

DIMENSION VECTOR (LENGTH) 
5 K = -1 

DO 10 I =2, LENGTH, 1 

IF(VECT0R(|).GE.VECT0R(I-1)) GOTO 10 

TEMP = VECTOR(I-I) 

VECTOR(I-I) = VECTOR(I) 

VECTOR(I) = TEMP 

K = 1 
10 CONTINUE 

IF(K)15,15,5 
15 END 

ENTRY statements 

The ENTRY statement is used only in a procedure subprogram to permit its 
being entered at any executable statement not within a DO-loop range. A 
procedure subprogram may contain one or more ENTRY statements following 
its FUNCTION or SUBROUTINE statement. 

The ANSI FORTRAN Standard does not provide for ENTRY statements. 

Form of an ENTRY statement - The form of an ENTRY statement is 



ENTRY en [([<£,<£]. . .])3 



where en is a function or subroutine name used as an entry in the 
procedure subprogram, and 

d is a variable , array , or dummy procedure name used as a 
dummy argument. 

Referencing a procedure subprogram entry - Referencing an en in a func- 
tion or subroutine subprogram is the same as referencing the function or 
subroutine subprogram name. Execution begins with the first executable 
statement following that ENTRY statement. 
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The order, number, and types of names appearing as dummy arguments in an 
ENTRY statement must agree with the actual arguments in any reference to 
that ENTRY statement. They need not agree with those specified in a 
FUNCTION, SUBROUTINE, or other ENTRY statement in the same subprogram. 
Agreement of type is not required where a dummy argument corresponds to 
an actual argument specifying a subroutine name. 

Entry association in function subprograms - The function name en specified 
in an ENTRY statement in a function subprogram is associated with all 
variables in that subprogram which are associated with the function name 
appearing in the FUNCTION statement. When any one of these variables 
becomes defined, all associated variables and function names of the same 
type also become defined; those not of the same type becoming undefined. 
A function name appearing in a FUNCTION statement may differ in type from 
function names appearing in ENTRY statements in the same subprogram. 

ENTRY statement restrictions - A function or subroutine name specified 
in an ENTRY statement cannot be the same as any name specified in 
PROGRAM, BLOCK DATA, FUNCTION, SUBROUTINE, or ENTRY statements in the 
same executable program. 

The function name specified in an ENTRY statement must not appear as a 
variable in any statement preceding that ENTRY statement except for a 
type statement. 

A name appearing as a dummy argument in an ENTRY statement cannot appear 
in an executable statement preceding that ENTRY statement unless it also 
appears in a FUNCTION, SUBROUTINE or ENTRY statement that precedes the 
executable statement. 

In a subprogram, a dummy argument specified in an ENTRY statement cannot 
be referenced in a statement function statement unless it also appears 
as a dummy argument in the statement function statement or in a preceding 
FUNCTION, SUBROUTINE or ENTRY statement. 

If a dummy argument name is referenced in an executable statement, it 
must also be specified in that FUNCTION, SUBROUTINE, or ENTRY statement 
referenced prior to execution of the executable statement. 

RETURN statements 

A RETURN statement causes return of control to the referencing program unit 
and may appear only in a function or subroutine subprogram. 
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Form of a RETURN statement - The form of a RETURN statement in a subprogram 
is 



RETURN 



Execution of a RETURN statement - Execution of a RETURN statement terminates 
a reference to a function or subroutine subprogram. Such subprograms may 
contain more than one RETURN statement. A subprogram need not contain a 
RETURN statement since execution of an END statement in a function or sub- 
routine subprogram has the same effect as executing a RETURN statement. 
In the execution of an executable program, a function or subroutine sub- 
program must not be referenced twice without the execution of a RETURN or 
END statement in that procedure having intervened. 

The value of function must be defined prior to its execution of a RETURN 
or END statement. Execution of a RETURN or END statement in a procedure 
subprogram causes return of control to the current referencing program 
unit. 

Return of control to the referencing program unit completes execution of 
the CALL statement. 

Note that if a named common block appears in the main program, the entities 
in the named common block do not become undefined upon execution of any 
RETURN or END statement in the executable program. 

Arguments and common blocks 

Arguments and common blocks provide a means of communication between a 
referencing program unit and a referenced procedure. 

Data may be communicated to a statement or intrinsic function by an 
argument list. Data may be communicated to and from an external pro- 
cedure by an argument list or by common blocks. Procedure names may 
be communicated to an external procedure only by an argument list. 

A dummy argument appears in the argument list of a procedure. An actual 
argument appears in the argument list of a procedure reference. The 
number, type, and order of actual arguments must be the same as the 
number, type and order of dummy arguments in the procedure referenced. 

Dummy arguments - Statement functions, function subprograms, and sub- 
routine subprograms use dummy arguments to indicate the types of actual 
arguments and whether each is a single value, an array of values or a 
procedure. Note that statement function dummy arguments are limited 
to variables. 

Each dummy argument is classified as a variable, array, or procedure. 
Dummy argument names may appear wherever an actual name of the same 
class and type may appear, except where explicitly prohibited. 
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Dummy argument names of type integer may appear as adjustable dimension 
declarators in dummy array declarators. Dummy argument names may not 
appear in EQUIVALENCE, DATA, or PARAMETER statements or in COMMON state- 
ments except as common block names. A dummy argument name must not be 
the same as the procedure name appearing in a FUNCTION, SUBROUTINE, or 
statement function statement in the same program unit. 

Actual arguments - Actual arguments specify the entities that are to be 
associated with the dummy arguments of a referenced subroutine or function. 
An actual argument must not be the name of a statement function in the 
referencing program unit. Actual arguments may be constants and expressions 
involving operators if the associated dummy argument is a variable that 
is not defined during execution of the referenced external procedure. 

The type of each actual argument must agree with the type of its associated 
dummy argument, except when the actual argument is a subroutine name. 

Association of dummy and actual arguments - Upon execution of a function or 
subroutine reference, an association is established between the correspond- 
ing actual and dummy arguments. The first actual argument becomes associated 
with the first dummy argument, the second actual argument becomes associated 
with the second dummy argument, etc. 

All appearances within a function or subroutine of a dummy argument become 
associated with the corresponding actual argument when a reference to that 
function or subroutine is executed. 

A valid association occurs only if the type of the actual argument is the 
same as the type of the corresponding dummy argument. A subroutine name 
has no type and must be associated with a procedure. 

If an actual argument is an expression, it is evaluated just before the 
association of arguments takes place. 

If an actual argument is an array element name, its subscript is evaluated 
just before the association of arguments takes place. Note that the sub- 
script value remains constant as long as that association of arguments 
persists, even if the subscript contains variables that are redefined during 
the association. 

If an actual argument is an external procedure name, the procedure must be 
available at the time a reference to it is executed. 

If an actual argument becomes associated with a dummy argument that appears 
in an adjustable dimension declarator, the actual argument must be defined 
with an integer value at the time the procedure is referenced. 
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A dummy argument is undefined if it is not currently associated with an 
actual argument. An adjustable array is undefined if the dummy argument 
array is not currently associated with an actual argument array or if any 
variable appearing in the adjustable array declarator is not currently 
associated with an actual argument or is not in a common block. 

Argument association may be carried through more than one level of pro- 
cedure reference. A valid association exists at the last level only if 
a valid association exists at all intermediate levels. Note that argument 
association endures between repeated references to a subprogram. 

Variables as dummy arguments - A dummy argument that is a variable may be 
associated with an actual argument that is a variable, array element, or 
expression. 

If the actual argument is a variable name or array element name, the 
associated dummy argument may be defined or redefined within the sub- 
program. A dummy argument must not be redefined within the subprogram 
if the associated actual argument is: 

• A constant, 

• The symbolic name of a constant, 

• A function reference", 

• An expression involving operators, or 

• An expression enclosed in parentheses. 

Arrays as dummy arguments - Within a program unit, the array declarator 
given for an array provides all array declarator information required for 
execution of the program unit. The number and size of dimensions in an 
actual array declarator may be different from the number and size of 
the dimensions in an associated dummy array declarator. 

A dummy argument that is an array name may be associated with an actual 
argument that is either an array name or an array element name. 

If the actual argument is an array name, the size of the dummy argument 
array must not exceed the size of the actual argument array, and each 
actual argument array element becomes associated with that dummy argument 
array element that has the same subscript value as the actual argument 
array element. 
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If the actual argument is an array element name, the size of the dummy 
argument array must not exceed the size of the actual argument array 
plus one minus the subscript value of the array element, when an actual 
argument is an array element name with a subscript value of p, the dummy 
argument array element with a subscript value of q becomes associated with 
the actual argument array element that has a subscript value of p+q-1. 

Procedures as dummy arguments - A dummy argument that is a procedure may 
be associated only with an actual argument that is a procedure. 

If a dummy argument is used as if it were a function, the associated actual 
argument must be an intrinsic function or an external function. A dummy 
argument that becomes associated with an intrinsic function never has any 
automatic typing property, even if the dummy argument name is the same as 
the intrinsic function name. Therefore, the type of the dummy argument 
must agree with the type of the result of all specific actual arguments 
that become associated with the dummy argument. If a dummy argument name 
is used as if it were an external function and that name also appears as 
an intrinsic function name, the intrinsic function is not available for 
referencing within the subprogram. 

A dummy argument that is used as a procedure name in a function reference 
and is associated with an intrinsic function must have arguments that agree 
in number and type with those specified for the intrinsic function. 

If a dummy argument appears in a type statement and an EXTERNAL statement, 
the actual argument must be the name of a function. 

If the dummy argument is referenced as a subroutine, the actual argument 
must be the name of a subroutine and must not appear in a type statement 
or be referenced as a function. 

Restrictions on the association of entities - If a subprogram reference 
causes a dummy argument in the referenced subprogram to become associated 
with another dummy argument in the referenced subprogram, neither dummy 
argument may become defined during execution of that subprogram. For 
example, if a subroutine is headed by 

SUBROUTINE XYZ (A,B) 

and is referenced with 

CALL XYZ (C,C) 

then the dummy arguments A and B each become associated with the same 
actual argument C and, therefore, with each other. This rule prohibits 
both A and B from becoming defined during this execution of subroutine 
XYZ or by any procedures referenced by XYZ. 
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If a subprogram reference causes a dummy argument to become associated 
with an entity in a common block in the referenced subprogram, neither 
the dummy argument nor the entity in the common block may become defined 
within the subprogram. For example, if a subroutine containing statements 

SUBROUTINE XYZ (A) 
COMMON C 

is referenced by a program unit that contains the statements 

COMMON B 
CALL XYZ (B) 

the dummy argument A becomes associated with the actual argument B. B 
and C are associated in a common block. The rule states that neither A 
nor C may become defined during the execution of subroutine XYZ or by any 
procedures it references. 

Common blocks 

A common block provides a means of communication between external procedures 
or between a main program and an external procedure. The variables and 
arrays in a common block may be defined and referenced in all subprograms 
that contain a declaration of that common block. Because association is 
by storage rather than by name, the names of the variables and arrays may 
be different in the different subprograms. A reference to a datum in a 
common block is proper if the datum is defined and of the same type as the 
type of the name used to reference the datum. However, an integer variable 
that has been assigned an executable statement label must not be referenced 
in any program unit other than the one in which it was assigned. 

The only difference in data type permitted between that defined and that 
referenced is that either part of a complex datum may be referenced as a 
real datum. 

In a subprogram that has declared a named or blank common block, the 
entities in the block remain defined after the execution of a RETURN 
or END statement. 

Common blocks also may be used to reduce the total number of storage units 
required for an executable program by causing two or more subprograms to 
share some of the same storage units. This sharing of storage is permitted 
if the rules for defining and referencing data are not violated. 
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3.6.12 UTILITY PROCEDURES 



The ANSI FORTRAN Standard does not provide for utility procedures. 



The CRAY-1 FORTRAN programmer can reference a number of predefined func- 
tions, subroutines, and other procedures as described in Appendix C. 
These utility prooedwes extend program control capabilities in the areas 
of: 

• CRAY-1 Operating System •(COS) features, 

• Input/output operations, and 

• Boolean, masking, shifting, and related operations. 

3.6.13 BLOCK DATA SUBPROGRAMS 

Block data subprograms are used to provide initial values for variables 
and array elements in named common blocks. 

A block data subprogram is a program unit that has a BLOCK DATA statement 
as its first statement. A block data subprogram is non-executable. 

BLOCK DATA statement form 

The form of a BLOCK DATA statement is 



BLOCK DATA [ sub ] 



where sub is the symbolic name of the block data subprogram in which the 
BLOCK DATA statement appears. 

The optional name sub is a global name and must not be the same as the 
name of an external procedure, main program, or other block data sub- 
program in the same executable program. The name sub must not be the 
same as any local name in the subprogram. 

The ANSI FORTRAN Standard does not provide f or block data subprogram names or main program names. 

Block data subprogram restrictions 

The BLOCK DATA statement must appear only' as the first statement of a block 
data subprogram. The only other statements that may appear in a block data 
subprogram are IMPLICIT, PARAMETER, DIMENSION, COMMON, EQUIVALENCE, DATA, 
type, and END statements. 
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If a named common block has an entity initialized, all entities having 
storage units of the common block storage sequence must be specified 
even if they are not all initialized. More than one named common block 
may have entities initialized in a single block data subprogram. Entities 
not in a named common block must neither be initialized nor appear in a 
DIMENSION, EQUIVALENCE, or type statement in a block data subprogram. 

A given named common block may be specified in more than one block data 
subprogram in an executable program. 

There may be any number of unnamed block data subprograms in an execut- 
able program. Any number of differently named block data subprograms 
may be specified in an executable program. 

An END statement must be contained in the last line used in specifying a 
block data subprogram. 



Example : 

BLOCK DATA BD1 



C0MM0N/NAME1/TABLEA,TABLEB,TEST1,TEST2 
DIMENSION TABLEA(10,10) ,TABLEB(6,2,2) 
DATA TABLEA/100*123./,TABLEB/12*0. ,12*1 ./ 
DATA TEST1 /72 . 35E-20/ ,TEST2/ ' EXAMPLES ' / 



END 
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3.7 ASSOCIATION AND DEFINITION 

3.7.1 STORAGE AND ASSOCIATION 

Storage sequences are used to describe association among variables, array 
elements, common blocks, and arguments. 

Storage sequences 

A storage sequence is a sequence of storage units. Each array and common 
block has a storage sequence. The size of a storage sequence is the number 
of storage units it contains. A storage unit contains one variable or 
array element of type integer, real, or logical. 

A double-precision or complex variable or array element has a storage 
sequence of two storage units. In a double-precision storage sequence, 
the most and least significant parts of a datum are contained in the first 
and second storage units, respectively. In a complex storage sequence, 
the real and the imaginary parts of a datum are contained in the first 
and second storage units, respectively. 

A storage unit in the CRAY-1 computer corresponds to one 64-bit memory 
location; a storage sequence to a contiguously addressed set of memory 
locations . 



The ANSI FORTRAN Standard does not relate storage units and memory locations. 



Association of storage sequences 

Two storage sequences are associated if they share at least one storage 
unit. 

Association of entities 

Two entities are associated if their storage sequences are associated 
Totally associated entities share the same storage sequence. Partially 
associated entities share part but not all of a storage sequence. 

The definition status and value of an entity affects the definition status 
and value of any associated entity or entities. An EQUIVALENCE statement, 
a COMMON statement, or argument association in a procedure reference may 
cause the association of storage sequences. 

An EQUIVALENCE statement causes association of entities within a program 
unit unless one of the entities is also in a common block. 

Arguments and COMMON statements cause entities in two or more program units 
to become associated. 
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Partial association may exist only between a double-precision or complex 
entity and a second entity of type integer, real, logical, double precision, 
or complex. Partial association may occur only through the use of COMMON or 
EQUIVALENCE statements. Partial association must not occur through argument 
association. 



In the example 

INTEGER I 

REAL R(4) 

COMPLEX C(2) 

DOUBLE PRECISION D 

EQUIVALENCE (C(2), R(2) , I), (R,D) 

the third storage unit of C, the second storage unit of R and the storage 
unit of I are specified as the same. The storage sequences may be illus- 
trated as: 



Storage unit 



COMPLEX 

REAL 

INTEGER 

DOUBLE PRECISION 



1 


2 


3 |4 


5 j 


C(l) 


C(2) 












Rd) 


R(2)|R(3) R(4) 




I 1 





R(2) and I are totally associated. The following are partially associated: 
R(l) and C(l), R(2) and C(2), R(3) and C(2) , I and C(2) , R(l) , and D, R(2) 
and D, I and D, C(l) and D, and C(2) and D. Note that although C(l) and 
C(2) are each associated with D, C(l) and C(2) are not associated with each 
other. 



3.7.2 DEFINING ENTITIES 

Variables and array elements become defined as follows: 

• Execution of an arithmetic or logical assignment statement cause 
the entity that precedes the equals to become defined. 

• As execution of an input statement proceeds, each entity that is 
assigned a value of its corresponding type from the input medium 
is defined at the time of such assignment. 

• Execution of a DO statement causes the DO-variable to become defined. 
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Beginning of execution of actions specified by an implied-DO list 
in an input/output statement causes the implied-DO-variable to be- 
come defined. 

A DATA statement causes entities to become initially defined at the 
beginning of execution of an executable program. 

Execution of an ASSIGN statement causes the variable in the state- 
ment to become defined with a statement label value. 

When an entity of a given type becomes defined, all totally assoc- 
iated entities of the same type become defined. 

A reference to a subprogram causes a dummy argument to become 
defined if the corresponding actual argument is defined. 

When a complex entity becomes defined, all partially associated 
real entities become defined. 

When both parts of a complex entity become defined as a result of 
partially associated real or complex entities becoming defined, the 
complex entity becomes defined. 



3.7.3 UNDEFINING ENTITIES 

Variables and array elements become undefined as follows: 

o All entities are undefined at the beginning of execution of an 
executable program except those entities initially defined by 
DATA statements. 

o When an entity of a given type becomes defined, all totally 
associated entities of different type become undefined. 

e Execution of an ASSIGN statement causes the variable in the state- 
ment to become undefined as an integer. Entities of type integer 
that are associated with the variable are also undefined as integers . 

• When an entity becomes defined, all partially associated entities 
|become undefined. However, when an entity of type real is partially 
associated with an entity of type complex, the complex entity does 
not become undefined when the real entity becomes defined and the 
real entity does not become undefined when the complex entity be- 
comes defined. When an entity of type complex is partially assoc- 
iated with another entity of type complex, definition of one entity 

, does not cause the other to become undefined. 

• When an error condition or an end-of-file condition occurs during 
execution of an input statement, all items in the input list of 
the statement become undefined. 

o When an entity becomes undefined as a result of conditions described 
in the two preceding items, all totally and partially associated 
entities become undefined. 
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3.8 SCOPE AND CLASSES OF SYMBOLIC NAMES 

A symbolic name consists of from one to eight alphanumeric characters, the 
first of which must be a letter. Some sequences of characters, such as 
format edit descriptors and keywords that uniquely identify certain state- 
ments (GO TO, READ, FORMAT, etc.) are not symbolic names nor do they form 
the first characters of symbolic names in such occurrances. 



The ANSI FORTRAN Standard provides for symbolic names of up to six alphanumeric characters. 



3.8.1 SCOPE OF SYMBOLIC NAMES 

The scope of a symbolic name is an executable program, a program unit, or 
a statement function statement. 

The name of the main program and the names of block data subprograms, exter- 
nal functions, subroutines, and common blocks have a scope of an executable 
program and are said to be global to that program. 

The names of variables, arrays, constants, statement functions and intrinsic 
functions have a scope of a program unit. 

The names of variables that appear as dummy arguments in a statement func- 
tion statement have a scope of that statement. 

Global entities 

The main program, common blocks, subprograms, and external procedures are 
global entities of an executable program. A symbolic name that identifies 
a global entity must not be used to identify any other global entity in 
the same executable program. 

A symbolic name in one of the following classes identifies a global entity 
in an executable program: 

• Common block. 

• External function. 

• Subroutine . 

• Main program. 

• Block data subprogram. 



The ANSI FORTRAN Standard does not provide for main program or block data subprogram names. 
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Local entities 

A symbolic name of a local entity identifies that entity in a single program 
unit. A symbolic name that identifies a member in one class of entities 
local to a program unit must not also identify a member in another class 
of entities local to that same program unit. However, a symbolic name 
that identifies a local entity may, in a different program unit, identify 
an entity of a different class that is either local to that program unit 
or is global to the executable program. A symbolic name that identifies 
a global entity in a program unit must not be used to identify a local 
entity in that program unit except as noted in 3.8.2 for common block 
and external function names. 

The symbolic name of an entity in one of the following classes identifies 
it as a local entity in a program unit: 

e Array 

• Variable 
e Constant 

• Statement function 

• Intrinsic function 

The ANSI FORTRAN Standard does not provide for the symbolic names of constants. 

A symbolic name used as a dummy argument in a procedure is classified as 
identifying a variable, an array, or another procedure. This specification 
and usage must not violate the respective class rules. 



3.8.2 CLASSES OF SYMBOLIC NAMES 

In a program unit, a symbolic name must not correspond to more than one 
class except as noted in the following paragraphs. All restrictions on 
the appearances of the same symbolic name in different program units of 
an executable program are also noted here. 

Common blocks 

A symbolic name is the name of a common block if and only if it appears 
as a block name in a COMMON statement. A common block name is global to 
the executable program. 
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A common block name in a program unit may also be the name of any local 
entity. If a name is used for both a common block and a local entity, 
the appearance of that name in any context other than as a common block 
name in a COMMON statement identifies only the local entity. 

External functions 



A symbolic name is the name of an external function if it: 

• Appears immediately following the keyword FUNCTION or ENTRY 
in a FUNCTION or ENTRY statement, or 

• Is not an array name, statement function name, intrinsic 
function name, subroutine name, or dummy argument and every 
appearance is immediately followed by a left parenthesis 
except in a type statement, in an EXTERNAL statement, or as 
an actual argument. 

The name of a function subprogram that appears immediately after the 
keyword FUNCTION or ENTRY in a FUNCTION or ENTRY statement must be the 
name of a variable in that subprogram. An external function name is 
global to the executable program. 

Subroutines 

A symbolic name is the name of a subroutine: 

• If the name appears immediately following the keyword 
SUBROUTINE or ENTRY in a SUBROUTINE or ENTRY statement, or 

• If the name appears immediately following the keyword CALL in a 
CALL statement and is not a dummy argument. 

A subroutine name is global to the executable program. 

The main program 

A symbolic name is the name of a main program if and only if it appears 
in a PROGRAM statement in the main program. A main program name is 
global to the executable program. 



The ANSI FORTRAN Standard does not provide for the PROGRAM statement or a main program name- 



Block data subprograms 

A symbolic name is the name of a block data subprogram if and only if 
it appears in a BLOCK DATA statement. A block data subprogram name is 
global to the executable program. 



The ANSI FORTRAN Standard does not provide for a block data subprogram name. 
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Arrays 

A symbolic name is the name of an array if it appears as the array name 
in an array declarator in a DIMENSION, COMMON, or type statement. An 
array name is local to a program unit and may be the same as a common 
block name. 

Variables 

A symbolic name is the name of a variable if it meets all of the followinq 
conditions : ' 

• It does not appear in a PARAMETER or EXTERNAL statement, 

• It is not the name of an array, subroutine, main program, or 
block data subprogram, 

• It is not the name of an array, subroutine, main program, or 
subprogram, 

• It appears other than as the name of a common block, the name of 
an external function in a FUNCTION statement, and 

• It can be immediately followed by a left parenthesis (only when 
immediately preceded by the word FUNCTION in a FUNCTION statement) . 



The ANSI FORTRAN Standard does not provide for the PARAMETER statement, nor for a main program name. 



A variable name is local to a program unit. A variable name in the dummy 
argument list of a statement function statement is local to the statement 
function statement in which it occurs. Note that the use of an intrinsic 
function name as a dummy argument of a statement function removes it from 
the class of intrinsic functions within the program unit containing that 
statement function. 

A statement function dummy argument name may also be the name of a variable 
or common block in the same program unit. The appearance of the name in 
any context other than as a dummy argument of the statement function 
identifies a local variable or common block. The statement function dummy 
argument name and local variable name have the same type. 

Constants 

A symbolic name is the name of a constant if it appears as a symbolic 
name in a PARAMETER statement. A constant name is local to a program 
unit. 
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Statement functions 

A symbolic name is the name of a statement function if it is not an 
array name and a statement function statement exists that specifies 
that symbolic name. A statement function name is local to a program 
unit. A statement function name may be the same as a common block 
name. 

Intrinsic functions 

A symbolic name is the name of an intrinsic function if it appears in 
Appendix B and: 

• Does not appear in a conflicting type statement, 

• Is not an array name, statement function name, subroutine name, or 
dummy argument name, and 

• Every appearance of the symbolic name, except in a type statement 
or as an actual argument, is immediately followed by an actual 
argument list enclosed in parentheses. 

An intrinsic function name is local to a program unit. 
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4 CRAY-1 FORTRAN PROGRAMMING 



CRAY-1 FORTRAN PROGRAMMING 4 

4.1 GENERAL 

The CRAY-1 FORTRAN Compiler (CPT) , in producing CRAY-1 machine language 
instructions from FORTRAN language statements, does so with run-time 
efficiency as a prime objective. Its operations include: 

• Providing the most effective instruction sequence for each 
FORTRAN statement compiled, 

• Making full use of all CRAY-1 capabilities and techniques enhancing 
the speed with which these sequences execute, and 

• Analyzing FORTRAN statements to accomplish the foregoing. 

Of particular significance is the compilation of statements describing 
iterative operations amenable to vector processing. When properly 
applied, vector processing affords dramatic decreases in computation time 
over equivalent scalar processing methods. Also significant is the structur- 
ing of data in memory to take advantage of its potential for 80-million 
words-per-second transfers during computation. The CRAY-1 FORTRAN pro- 
gramming techniques described in this section address both considerations. 

4-2 FORTRAN PROGRAMMING FOR CRAY-1 VECTOR OPERATIONS 

CFT analyzes the innermost loops of the FORTRAN programs it compiles to 
determine whether vector processing methods can be applied to improve 
overall program efficiency. If so, the execution sequence of the code 
it produces contains vector instructions to drive the high-speed vector 
and floating-point functional units and the eight vector registers in their 
integrated processing of the specified operation. This feature of CFT 
is automatically activated through compiler analysis of statements contained 
in certain DO-loops in the program without special notation on the part 
of the programmer. Thus, no special provisions are required that would 
encumber the programmer or affect the transportability of the programs 
produced or used. 

Not all DO-loops are vectorizable. In determining the qualifications of 
a loop for vectorization, CFT examines each statement and its relationship 
to others in that DO-loop range. The CRAY-1 FORTRAN programmer can enhance 
the performance of his programs by avoiding certain constructs known to 
inhibit DO-loop vectorization. 

To be vectorizable, a DO-loop must manipulate or perform calculations on 
the contents of one or more arrays. Loops containing a GO TO, IF, or CALL 
statement are not vectorizable. A vectorizable DO-loop may contain refer- 
ences to any of the CRAY-1 FORTRAN intrinsic functions and may contain 
expressions having arithmetic, relational and logical operators. Any 
procedures named in an EXTERNAL statement cause the inhibiting of vector- 
ization of an inner DO-loop referencing it. N 
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Further loop analysis is performed to determine that all variables defined 
or referenced in the DO-loop range are in one of three categories: 

• Invariants , 

• Constant increment integers (CII's), or 

• Vector array references. 

A loop that contains one or more variables outside these categories, 
cannot be vectorized. 

An invariant is a variable that is referenced but not defined in the 
course of DO-loop execution. 

A constant increment integer (CII) is an integer variable that is incre- 
mented by a constant value on each pass through the loop and at only one 
point in the DO-loop range. At this point, the expression used to define 
the CII may, itself, reference a single CII variable. The expression 
must not use operators other than plus and minus. 

A vector array reference is an array element name in which one subscript 
expression contains a CII and all others, if any, are invariants. A 
vector array reference subscript expression containing a CII must be of 
the form: 



[i invariant *J CII [i invariant expression] 



In the following example, I, J, and K are CII's; A, B, and C are vector 
array references, and KDELTA, X, and D are invariants. The DO-loop is 
vectorizable . 

DO 10 I = 3,101,2 
K = K - KDELTA 
J = 107 - I 

A (3, 1-2) = COS(B(J)) **C(M-2*K+L*M/7,L,M/L)*X*D(L,M) 
10 CONTINUE 

One common FORTRAN practice, that of using temporary variables to contain 
repeated subexpressions, clearly inhibits inner DO-loop vectorization. 
For example, the appearance of the statements 

TEMP = A(I) + B(I) * C(I) 
D(I) = TEMP + 1. / TEMP 

in a DO-loop will disqualify it for vectorization since TEMP is not an 
invariant, a CII, or a vector array reference. The additional memory 
references required in substituting TEMP (I) for TEMP to eliminate this 
problem offset the advantage gained. CFT examines DO-loops for repeated 
subexpressions. Those encountered are evaluated only once. Consequently, 
their repetition does not cause an increase in execution time. Another 
alternative is to reference statement functions which are analyzed for 
possible vectorization. 
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Hence the statements 

ASF(X,Y,Z) = X + Y * Z 



or the statement 



D(I) = ASF(A(I),B(I),C(I)) + 1. / ASF(A(I),B(I),C(I)) 



D(I) = C(I) * B(I) + A(I) + 1. / (A(I) + B(I) * C(D) 



are vectorizable, involve only one evaluation of A(I) + B(I) * C(I), 
and do not involve any unnecessary memory references. 

Attention to the structure of statements within nested DO-loops often 
improves execution time by permitting vectorization . For example, the 
common matrix multiplication method specified in the statements 

DO 10 I = 1,N 
DO 10 J = 1,M 
A(I,J) = 0. 
DO 10 L = 1,K 
10 A(I,J) = A(I,J) + B(I,L) * C(L,J) 

does not vectorize because A (I, J) is independent of the inner DO-loop index. 
By rewriting this execution sequence as 

DO 10 I = 1,N 
DO 5 J = 1,M 
5 A(I,J) = 0. 
DO 10 L = 1,K 
DO 10 J = 1,M 
10 A(I,J) = A(I,J) + B(I,L) * C(L,J) 

vectorization .occurs and the loop, in actual tests, has proven to 
require only 15% of the original loop execution time. 

Interdependencies among the elements of a vector can be expressed in FORTRAN 
statements, but. cause CFT to inhibit the vectorization of any DO-loop 
in which they are encountered. A DO-loop such as 

DO 10 I = 2,100 
10 T(I,J) = (T(I-1,J) + T(I+1,J) + T(I,J+1) + T(I,J-D) / 4. 

does not vectorize since the vector operations of the CRAY-1 CPU cause 
T(I-1,J) to be calculated at the same time it is required for the calculation 
of T(I,J) . 
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The same dependency problem can occur among separate statements in a D0- 
loop. Multiple-statement dependencies pose far more complex problems for 
CFT analysis since the form and value range of subscripts , the order of 
references, and the sign of the control variable must be considered in 
various combination to determine whether vectorization is permissible. 
In the following sets of statements, positive incrementation of the control 
variable, I, inhibits vectorization: 

A(I)=A(I-1) B(I)=A(I-1) A(I)=... 

A(I)=... B(I)=A(I+1) 

In the last case, the simultaneous calculation of A (I) and A(I+1) would 
cause B(I) to be defined with the just-calculated value of A(I+1) if 
vectorization were permitted. 

Under the same circumstances, the following sets of statements are vector- 
izable: 

A(I)=A(I+1) B(I)=A(I+1) A(I) = ... 

A(I)=... B(I)=A(I-1) 

Note that in both sets of examples, applying a negatively incremented 
control variable reverses the dependency situation. If, for example, 
the DO- loop were initiated with a 

DO 10 I = 100,1,-1 

then the first set of examples above would be vectorizable while 
the second set would not. 

The inhibiting of vectorization due to such dependencies can be relaxed 
in the case of multiply-dimensioned array processing. CFT must be able to 
determine that the specified array elements are in different vectors 
(i.e., rows, columns, planes, etc.) of the array. For example, the loop 

DO 10 I = 2,100 
• 10 A(I,J) = A(I-1,J-1) 

is vectorizable, while the similar loop 

DO 20 I = 2,100 
20 A(I,J) = A(I-1,JMINUS1) 

cannot be vectorized since CFT cannot determine whether J and JMINUSl are 
equal . 
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The following summation loop cannot be vectorized: 

SUM = 
DO 10 I = N,M 
10 SUM = SUM + A(I) 

(where A is an array or an expression involving arrays) . 

Rewritten in the following form, the summation loop becomes highly 
vectorizable: 

DO 10 I = 1,MIN0(64,M-N+1) ,1 
10 HELPER (I) = A(N+I-1) 

JS = I+N-2 

KOUNT = (M-JS)/64 

LAST = (M-JS)-64*KOUNT 

DO 20 J = 1, KOUNT 

DO 15 I = 1,64 
15 HELPER(I) = HELPER(I)+ A(I+JS) 
20 JS = JS + 64 

DO 30 I = 1,LAST 
30 HELPER (I) = HELPER (I) + A(M+1-I) 

SUM = HELPER (1) 

DO 40 I = 2,MIN0(64,M-N+1) ,1 
40 SUM = SUM + HELPER (I) 

\ 

The first loop does a vector transfer of the first elements of array A to 
array HELPER. (Note the use of the intrinsic function MIN0.) The value 
of KOUNT is the number of 64 word blocks remaining and LAST is the number 
of words in the last partial block. Note that if M-N+l is less than 129, 
KOUNT will be zero (or negative) and the loop initiated by the DO 20 ... 
statement will not execute. Also note that if M-N+l is less than 64 
or is a multiple of 64, LAST will be less than or equal to zero and the 
loop initiated by the DO 30 ... statement will not execute. 
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The following are comparative timings in microseconds for the simple and 
rewritten summation loops: 



. _ 


Simple 


Rewritten 






M-N+l 


summation 


summation 


Ratio 


1 


3.2 


6.4 


2 


.0 


3 


4.2 


7.2 


1 


.7 


10 


7.6 


10.8 


1 


.4 


30 


17.3 


21.1 


1 


.2 


100 


51.5 


40.1 




.78 


300 


149.0 


53.1 




.36 


1000 


490.2 


97.9 




.20 


3000 


1465.2 


225.2 




.15 


10000 


4877.7 


673.3 




.14 


30000 


14627.7 


1949.8 




.13 


100000 


48752.7 


6421.0 




.13 



The compiler directive IVDEP can be specified in advance of an inner D0- 
loop DO statement to cause vector dependencies to be ignored in determin- 
ing whether or not to vectorize that loop. (See Section 5 for a descrip- 
tion of IVDEP and other compiler directives.) 
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DO loops containing IF statements will not vectorize. The utility pro- 
cedures CVMGP, CVMGM, CVMGZ, and CVMGN can often be used in lieu of IF 
statements to produce vectorizable loops. 

The simple case 

DO 10 I = N,M 
X(I) = A(I) 
10 IF(B(I) .GT.C(I))X(I) = D(I) 
could be rewritten as 

DO 10 I = N,M 
10 X(I) = CVMGM(D(I) ,A(I) ,C(I)-B(I)) 
or as 

DO 10 I =, N,M 
10 X(I) = CVMGP(A(I),D(I),C(I)-B(I)) 
to produce vectorizable loops. 
Similarly, 

DO 10 I = N,M 
10 IF(X(I) .GE.IO.)X(I) = X(I) +1.0 
could be rewritten as 

DO 10 I = N,M 
10 X(I) = CVMGP(X(I)+1.0,X(I) ,X(I)-10.) 

to do the same. 
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The two possible drawbacks to vectorizing IF statements in this way are 
extra work and illegal operations. 

Extra work occurs when the computer evaluates both true and false 
expressions before deciding which value to use. The loop 

DO 10 I = 1,1000 

10 IF(X(I) .GE..9999)X(I) =ASIN(X(D) 

might never invoke the ASIN routine if X contains random numbers in the 
range from to 1. However, the equivalent vector loop 

DO 10 I = 1,1000 

10 X(I) = CVMGP(ASIN(X(I)) ,X(I) ,X(I)-.9999) 

requires 1000 evaluations of ASIN. Whether or not there is a speed 
advantage to vectorizing IF statements in this manner depends in a 
complicated way on the complexity of the expressions and on the prob- 
ability of their evaluation being required. 

The second problem is possible illegal operations. A loop such as 

DO 10 I = N,M 

IF(X(I) .NE.O)X(I) = 1-/X(I) 

10 IF (Y(I) .GE.O.)Y(I) = SQRT(Y(I)) 

should not be rewritten using the preceding methods. In the rewritten loop 

DO 10 I = N,M 

X(I) = CVMGN(1./X(I) ,X(I) ,X(D) 

10 Y(I) = CVMGP(SQRT(Y(I)),Y(I) ,Y(D) 

both division and use of the intrinsic function SQRT would produce errors 
when processing unneeded cases. 
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The general guidelines below can be followed to promote vectorization 
of DO-loop operations: 

• Keep subscripts simple and explicit. 

® Do not use temporary variables to contain repeated subexpressions. 

• Do not use IF, GO TO, or CALL statements. 

• Use the CRAY-1 FORTRAN intrinsic functions where appropriate. 

• Make judicious use of the CRAY-1 FORTRAN utility procedures 
CVMGP, CVMGM, CVMGZ, and CVMGN in lieu of IF statements. 

• Rewrite large loops that contain a few unvectorizable statements 
as two or more loops, one or more of which will vectorize. 

4.3 FORTRAN PROGRAMMING FOR CRAY-1 MEMORY OPERATIONS 

The memory section of the CRAY-1 CPU can operate at a maximum transfer 
rate of 80-million words per second. This high speed owes in large 
measure to the location of consecutively addressed memory locations in 
separate memory banks. Since each bank operates independently, the 50 
nanosecond period required to access a single memory location can 
overlap the 50 nanosecond period required to access the next-higher- 
addressed memory location, and so on. This method of accessing memory for 
a set of consecutively addressed memory locations is such that only the 
first word accessed requires 50 nanoseconds to become available with re- 
maining words available at each 12.5 nanosecond interval thereafter. 
Addresses through 15 refer to memory locations in banks through 15, 
respectively; addresses 16 through 31 to memory locations in banks 
through 15; etc. Thus, every sixteenth address references a memory 
location in the same memory bank. 

Data can be organized without attention to this characteristic of the 
CRAY-1 memory section and be fully compatible with FORTRAN processing 
methods and with the storage sequences established by CRAY-1 FORTRAN. 
Avoiding certain storage sequence patterns will, however, ensure the best 
possible timing of transfer rates to and from memory. 

A general rule would be to avoid specifying storage sequences which, in 
the course of common transfer operations, would cause a given memory bank 
to be accessed more often than once every four clock periods. 
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5 THECRAY-1 FORTRAN COMPILER 



I 



THE CRAY-1 FORTRAN COMPILER 



5.1 GENERAL 

The CRAY-1 FORTRAN Compiler (CFT) transforms a CRAY-1 FORTRAN language 
program into a executable program in relocatable binary that can be 
loaded and executed on the CRAY-1 Computer System. 

The CRAY-1 Operating System (COS) calls upon the system loader (LDR) 
to load CFT from the Mass Storage Subsystem. Compiler operation responds 
to information in a COS job deck to locate and compile the FORTRAN program. 
Both binary and symbolic information are output from its operation. 

This section describes CFT in terms of the input and output characteristics 
that the CRAY-1 FORTRAN programmer must understand to produce correct 
and effective programs. 



5.2 INPUT TO CFT 

CFT, when initiated, seeks two types of information; the program to be 
compiled and instructions on controlling the compilation. 

A FORTRAN program to be compiled by CFT must be specified in punched-card 
or other form using the ASCII character codes in Appendix A and the format 
specified in Section 3. The result is a source deck. This source deck 
is not directly usable by CFT and must be converted to a CRAY-1 dataset and 
stored on disk before CFT can process its content. The means and manner 
of this conversion and storage occurs external to CFT. 

Other information required by CFT for its operations is provided through 
COS and from compiler directives specified in (but not a part of) the 
program being compiled. This includes identification of the input dataset 
containing the source deck, identification of datasets to receive the 
binary and listable output from CFT during compilation, and specification 
of which CFT options are to be exercised. Much of this information is con- 
tained in the CFT job statement card and other cards in the user's job 
deck (see Section 6). Compiler directives are described in 5.4. 

5.3 OUTPUT FROM CFT 

The two forms of compiler output are: 

• The compiled FORTRAN program in relocatable binary form, and 

• A printable record of the compilation including each FORTRAN 
statement compiled, the assembly-language (CAL) equivalent of 
the machine language produced, and a cross-reference of all 
symbolic names and statement labels within the program being 
compiled. 
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5.3.1 BINARY OUTPUT 

The relocatable binary program created by CFT compilation provides 
for the complete executable program including the reservation and possible 
initiallization (via DATA statements) of all data storage sequences. Out- 
put is onto a pre-identified dataset in a format required by the system 
loader routine, LDR. Addresses in this output are relocatable. Addition- 
ally, LDR loads and links routines required from the system library ($FTLIB) 

5.3.2 LISTABLE OUTPUT 

CFT optionally produces a dataset containing a source statement listing, 
a symbol table, and a listing of generated code for each program compiled. 
Additionally, diagnostic information may be interspersed. 

Listable output is written on a dataset. The CFT control statement and 
compiler directives allow the user to control this output and the dataset 
to receive it. 

Source statement listings 

The source statement listing records all FORTRAN statements comprising the 
program as they are sequentially read and interpreted from the source input 
dataset. A sequence number is listed for each statement to identify its 
position in the program. Errors encountered while compiling a statement 
are flagged by lines subsequent to that statement or are recorded at the 
end of the source statement listing. 

Symbol table and common block name list 

A symbol table may follow each CFT-compiled program unit. After this 

table is a list of names and lengths (in octal) of all common blocks 

used in the subroutine. 

The printing of a symbol table and/or a common block name list can be 

suppressed through an option on the CFT job control statement card. 

CFT provides for an optional cross-reference listing of statement number 

usage . 

Information in the symbol table is presented in seven fields: 

• Warning flags 

• Address 

• Name 

• Block 

• Type 

• Use 

• Dummy argument/equivalence flag 

Fields other than the warning flags field are identified by titles. 
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Warning flags - Warning flags may precede the address field of variables 
and arrays. 

Flag Significance 

N NULL. The variable or array is neither 

assigned a value (defined) nor referenced 
j in the program unit. 

U UNDEFINED. The variable or array is refer- 

enced but is not defined. Its content is 
unpredictable . 

C COMMON UNDEFINED. The variabe or array 

is in common and is referenced but not 
defined. (Since it is in a common block, 
it may be assigned a value in a different 
program unit . ) 

Address field - Addresses in this field are relative to the beginning 
of the program or to a named common block. 



Name field - The name field contains an alphabetized list of all symbolic 
names specified in the program unit. If there is no PROGRAM statement 
in the executable program, CFT identifies the main program with the name 
$MAIN. 



Common block field - The block field identifies the common block containing 
a variable or array. If no common block name appears, the variable or 
array is local to the program unit. 



Type field - The type field gives the type of array, variable, or program 
unit and can contain the following: 

Type Significance 

LOG Logical 

INT Integer 

REAL Real 

CPLX Complex 

DOUB Double precision 

(BLANK) Typeless function or subroutine 
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Use field - An entry in the use field describes the use of the corresponding 
symbolic name and may contain the following: 

Use Significance 

ARn Array with n dimensions (1 < n < 7) 

ASF Arithmetic statement function 

ENT Entry 

EXT External function or subroutine 

INT Intrinsic function 

VAR Simple variable 

Dummy argument and equivalence flags - The characters DA appear in the 
field following the use field if the symbol is a dummy argument to the 
subroutine or function. The characters EQ appear if the symbol is an 
equivalenced variable or array. 

Statement label list 

Statement labels are listed in a separate table. A statement label may 
be identified as FORMAT, ***UNDEF, INACTIVE, or DO TERM. DO TERM is 
used if the statement is only referenced as the termination statement of 
a DO- loop. If a statement label is active and defined, the parcel 
address at which it is defined is given. Parcel addresses of instructions 
that refer to the statement label are optionally listed. 

Internally generated statement labels are used for logical IF statements, 
for implied DO statements, or to mark the start and end of a DO-loop. 
In the first two cases, a 6-digit number in sequence from 000001 is 
generated with leading zeros present and significant. The beginnings 
and ends of DO-loops are labelled with pairs of compiler-generated 
statement labels. These are constructed by suffixing a DO terminator 
statement label with a letter. The first lettered label of a pair 
marks the beginning of the DO-loop; the second marks the end. 

Warning messages 

Warning messages are produced by CFT for statements or statement sequences 
that might cause error conditions during program execution. Their 
appearance does not affect compilation. Warning messages are listed in 
Appendix D. The following general form is used (seq. no. represents 
the number of the statement at which the problem was detected) : 

seq. no. WARNING message 

Warning messages can be suppressed through parameters on the CFT job 
statement card. 
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Fatal error messages 

When CFT determines the presence of one or more fatal errors, it continues 
to check subsequent statements for syntax errors but does not generate 
valid object code. CFT is a two-pass compiler. Errors detected during 
pass one are flagged immediately after the line containing the error. 
Errors detected during pass two are flagged at the end of each program 
unit. A fatal error message is listed in the following general form where 
seq. no. represents the CFT-assigned sequence number of the statement at 
which the error was detected and ERROR NO. n provides a sequential count 
of errors as encountered: 

seq. no. ERROR NO. n message 
Fatal error messages are listed in Appendix D. 

5.4 COMPILER DIRECTIVES 

The CRAY-1 FORTRAN Compiler (CFT) may be directed in certain of its 
actions by information specified in: 

• The CFT control statement that appears in the job control file 
for the job being processed, and 

• Compiler directives expressed in compiler directive lines that 
may be interspersed among the lines of statements and comments 
comprising the FORTRAN program units being compiled. 

Compiler options expressed by the user in the CFT control statement (see 
Section 6) establish particular methods for application throughout the 
compilation of all related FORTRAN program units. Compiler directives 
encountered in the program units being compiled may change or reinstate 
this set. of methods at predetermined points in the compilation. Certain 
other compiler actions are enabled and disabled only by compiler 
directives. 

The CFT control statement E (enable compiler directives) option must be 
specified ON for compiler options to be recognized by CFT. Else, the 
lines containing compiler options are treated as comment lines. 

The following paragraphs describe: 

e Compiler directive lines, 

e Listable output control directives, 

e Vectorization control directives, and 

• Integer control directives. 
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5.4.1 COMPILER DIRECTIVE LINES 

A compiler directive line (or card) contains the characters CDIR? in 
columns 1 through 5. Generally, column 6 must be blank or contain the 
character zero, and columns 7 through 72 contain one or more compiler 
directives separated by commas. Spaces may precede, follow, or be embedded 
within a compiler directive. Columns 73 through 80 may be used for any 
purpose. Continuation of compiler directive information beyond a single 
line may be accomplished by: 

• Entering a blank or zero character in column 6 of the initial 
line, 

• Entering any other character in column 6 of up to 19 subsequent 
lines, 

• Entering the characters CDIR$ in columns 1 through 5 of all lines 
in the sequence, and 

• Entering compiler directives in columns 7 through 72 of each 
line in the sequence as though a single field of up to 1,320 
columns were provided. 

Note that the character C in column 1 identifies these lines as comment 
lines to all but the CRAY-1 FORTRAN Compiler; a feature maintaining the 
transportability of programs using compiler directives. 

Compiler directive lines are listed in the source statement listing. 

5.4.2 LISTABLE OUTPUT CONTROL DIRECTIVES 

The five listable output control directives (and their forms) are: 

• EJECT 

• LIST 

• NOLIST 

• CODE 

• NOCODE 

The CFT control statement L (listable output control directives) option 
must be specified ON to cause this set of compiler directives to be 
recognized. 

EJECT directives 

A compiler directive line containing an EJECT directive will be printed 
as the last line of the current page of source statement listing being 
produced. If the EJECT directive is contained in a continuation set of 
compiler directive lines, the last of these becomes the last line of the 
page. In either case, a new page is begun having as its first line the 
line following the last one printed on the preceding page. The EJECT 
directive has no effect if production of the source statement listing 
has been suppressed. 
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LIST directives 

The LIST directive causes resumption of listable output production as 
was suppressed by a NOLIST directive. The LIST directive either results 
in the production of a source statement listing or is ignored if one is 

already being produced. 

i 

NOLIST directives 

The NOLIST directive suppresses the production of all listable output. 
If no listable output is being produced, the NOLIST directive is ignored. 

CODE directives 

The CODE directive causes the production of CFT-generated code listings 
if suppressed by a NOCODE directive or by CFT control statement action. 
A complete CFT-generated code listing is produced for a program unit contain- 
ing a CODE directive, and for all subsequent program units to, but not 
including, that containing the next NOCODE directive. 

NOCODE directives 

The NOCODE directive suppresses the production of CFT-generated code 
listings. The entire CFT-generated code listing of a program unit contain- 
ing a NOCODE directive is suppressed, as are the listings for all subsequent 
program units to, but not including, that containing the next CODE directive. 
If no CFT-generated code listings are being produced, the NOCODE directive 
is ignored. 



5.4.3 VECTORIZATION CONTROL DIRECTIVES 

The three vectorization control directives (and their forms) are: 

• VECTOR 

• NOVECTOR 

• IVDEP 

VECTOR directives 

The VECTOR directive causes the compiler to resume its attempts to 
vectorize inner DO-loops if such were suppressed by a NONVECTOR directive. 
Attempted vectorization is resumed for all inner DO-loops in that program 
unit containing the VECTOR directive. When attempted vectorization of 
inner DO-loops is not called for by CFT control statement option action, 
the VECTOR directive is ignored. 

NOVECTOR directives 

The NOVECTOR directive suppresses the compiler's attempts to vectorize 
all inner DO-loops beginning with those in the program unit containing 
the NOVECTOR directive. If inner DO-loop vectorization is not being 
attempted, the NOVECTOR directive is ignored. 
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IVDEP directives 

The IVDEP directive is specified in advance of a DO statement to cause 
the compiler's attempts to vectorize the corresponding DO-loop to ignore 
any vector dependencies encountered. The IVDEP directive affects only 
the single DO-loop it precedes. Note that conditions other than vector 
dependencies may cause the inhibiting of vectorization whether or not an 
IVDEP directive is specified. 

5.4.4 INTEGER CONTROL DIRECTIVE 

The form of the single integer control directive, INT24, is: 



INT24 V [,v] 



where INT24 specifies a 24-bit integer data type and 

V is the symbolic name of a variable or array. 

The specification of INT24 in a program unit causes all variables and 
arrays named in its argument list to be identified as entities of type 
integer that provide 24-bit (instead of the usual 64-bit) values when 
referenced. The INT24 directive is not a CRAY-1 FORTRAN language 
statement. It must, however, be specified in a program unit according 
to the rules for specifying type statements. Unlike other compiler 
directives, INT24 must be the only compiler directive specified in the 
compiler directive line (s) containing it. 
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6 THE CRAY-1 OPERATING SYSTEM 



THE CRAY-1 OPERATING SYSTEM 6 

6.1 GENERAL 

The CRAY-1 Operating System (COS) consists of programs that control the 
operation of a CRAY-1 Computer System. All jobs are processed under COS 
in a multiprogramming environment. In this environment, COS allocates 
system resources in a manner that attempts to optimize the use of these 
resources and that resolves conflicts among jobs requiring them. 

The CRAY-1 FORTRAN programmer communicates the way in which his job is 
to be processed by preparing instructions to COS in the form of job control 
statements. These, along with the FORTRAN program and/or data to be pro- 
cessed, are presented to COS as a job. This section describes only those 
features and capabilities of COS essential to the creating and processing 
of FORTRAN jobs. A more detailed treatment of COS is beyond the scope 
of the manual and is the subject of Cray Research publication 2240011, 
"CRAY-OS Version 1.0 External Reference Specification". 



6.2 JOB PREPARATION 

In preparing his job for COS processing, the CRAY-1 FORTRAN programmer must 
specify the complete procedure COS is to follow; from the initial establish- 
ing of his work as a job through the disposition of all datasets supporting 
or resulting from its operation. 

The first step in this task is typically the transcription of all program, 
data, and COS instruction information into punched-card or other suitable 
form. Instructions to COS are expressed as job control statements. Each 
statement is placed on a punched-card and the set of punched-cards comprise 
what is called the COS job aontrot deck. The program is placed on punched- 
cards as described in Section 3 and is referred to as the program or source 
deck. Data to be referenced in the course of program execution, if any, 
is prepared in one or more data decks and in the format required by the 
input/output statements in the program. 

Step two usually establishes these decks as files in a CRAY-1 dataset. 
Software at the host computer or the input/output station being used 
provides for creation of this dataset at the CRAY-1. The methods for 
accomplishing this vary according to host computer or station type and 
are described in other Cray Research publications. Once established 
in the CRAY-1, this dataset, called the job dataset, typically contains 
the COS job control deck as its first file, the program deck as its 
second file, and the one or more data decks, if any, as its third and 
following files. COS, which is in constant control of the CRAY-1, recog- 
nizes this dataset job to be processed. The job control statements com- 
prising the first file are stored for job processing control; the remainer 
of the dataset (including data for the programs, if any) is placed in a 
dataset named $IN. 
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At the conclusion of step two, COS is prepared to begin processing 

the job. Control statements in the job control deck govern the sequence 

of operations COS performs. They usually describe the following: 

• Establishing datasets required for compiler input and output. 

• Initiating and controlling CFT execution. 

• Establishing any data decks (contained in $IN) as datasets^ 

• Loading and initiating the operation of the compiled program. 

• Disposing of datasets output from CFT and from the program. 

When COS completes its monitoring of these operations, it terminates the 
job and makes available a logfile containing information on its actions. 
At this point, the disposition of datasets occurs, including the routing 
of all listable output to the host (front-end) processor or input/output 
station for printing. 

The following paragraphs describe job control statements and resultant 
COS actions essential to these basic operations. 



6.3 REQUIRED JOB CONTROL STATEMENTS 

The first file of a job dataset contains job control statements that are 
sequentially read and processed. 

Job control statements identify the job to the system, define operating 
characteristics for the job, manipulate datasets, call for the loading 
and execution of user programs, and call programs that perform a number 
of utility functions for the user. Only those job control statements 
essential to COS processing of FORTRAN jobs are discussed in this section. 
Complete descriptons of each are provided in Cray Research publication 
2240011, "CRAY-OS Version 1.0 External Reference Specification". 

6.3.1. JOB IDENTIFICATION 

The JOB control statement must be the first statement in a control statement 
file. It defines the name and characteristics of the job to the operating 
system. 
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6.3.2 ASSIGN DATASET CHARACTERISTICS 

The ASSIGN control statement creates a new dataset or changes the character- 
istics of an existing dataset. 

A FORTRAN program refers to datasets by using a unit number in its I/O 
statements. Allowable unit numbers range from through 99, inclusive. 
The CRAY-1 Operating System recognizes the following three standard 
datasets and reserved unit numbers : 

Dataset name Unit no. Standard use 

$IN 100 Job input 

$OUT 101 List output 

$PUN 102 Punch output 

These three datasets are referred to implicitly by PRINT, PUNCH, and 
certain forms of READ statements appearing in FORTRAN programs. 

A user associates a unit number with a dataset name by using the unit 
number prefixed by FT as either the dataset name or alias name in the 
ASSIGN statement. (The unit number with the FT prefix is sometimes 
referred to as the logical file name.) 

Using the logical file name with the DN keyword (i.e., DN=FTnn) causes a 
user dataset named FTnn to be created. Using the logical file name with 
the A parameter (i.e., A=FTnrc) causes FTnn to be an alias dataset name for 
the dataset named by the DN keyword. 

If ASSIGN statements are used, they must be placed in the job control 
statement file prior to loading and execution of the object program; 
that is, they can be placed anywhere before the LDR statement. 

Note that if an ASSIGN statement is not used, a dataset open for both input 
and output is created when the unit number is first referred to by the 
executing program. 

The following ASSIGN statement designates the unit number 11 as an alias 
of the standard dataset $0UT : 

ASSIGN (DN=$0UT,A=FT11) 

All references to unit number 11 in the FORTRAN program are translated 
to references to $0UT, which is automatically sent to the station at 
job end. 

6.3.3 CRAY-1 FORTRAN COMPILER EXECUTION 

The CFT compiler is loaded and executed when a CFT control statement is 
encountered in the control statement file of the job deck on the $IN 
dataset. 
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The format of the CFT control statement is: 

CFT ( I =idn , L=ldn , Q=bdn ,C=odn ,QN=string , OFF=string) j 



Options may be in any order. If a keyword and option are omitted from 
the statement, the compiler uses a default value. If all options 
are omitted, a period may be used in lieu of empty parentheses. 

The compiler does not reposition datasets either before or after compilation. 

1= idn Specifies dataset containing source input. 

idn Name by which source is known at CRAY-1; 

default is $IN. 

l,= ldn Specifies dataset to receive list output. 

Idn Name by which list output is known; default is 

$OUT. L=0 suppresses all list output except 
for -fatal error messages which are written on 
$OUT. 

B=bdn Specifies dataset on which compiler writes binary load 

modules . 

bdn Name by which binary load files are known to the 

CRAY-1; default is $BLD. An end-of-file is not 
written. 

C=adn Specifies CAL dataset. This option provides for the 

generation of a text file that contains acceptable input 
to the CAL assembler, possibly with minor hand corrections. 
It is intended to be used for hand coding of inner loops 
for enhanced efficiency. 

adn Name of CAL dataset; default is no dataset. 

ON=string Enables list or compile options; see table 6-1. 

string List of characters representing options to be 
enabled. 

OFF=string Disables list or compile options; see table 6-1. 

string List of characters representing options to be 
disabled. 
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Table 6-1. ON and OFF options 



I 



I 



ON and OFF 
options 


Default 
with ON 


Default 
with OFF 


Compilation options 


A 




X 


Aborts job after compilation 
if any of the program units 
contains an error. 


B 


X 




Beginning sequence number of 
each vectorized code generation 
block (G implies B) 


C 


X 




Common block names and lengths 
listed on Zdn after each program 
unit 


E 


X 




Enable recognition of compiler 
directive lines 


G 




X 


Generated code for each program 
unit 


I 




X 


Symbol table contains internal 
compiler-generated statement 
labels. 


L 


X 




Enable recognition of listable 
output control directives 


N 




X 


Symbol table contains null symbols 
(defined but not referenced) 


Q 


X 




Aborts compilation when 100 
warning and fatal error messages 
counted 


s 


X 




FORTRAN source code 


T 


X 




Symbol table after each program 
unit 


W 




X 


Warning messages concerning 
non-standard or unusual code 


X 




X 


- 
Symbol table with cross refer- 
ences after each program unit 
(X overrides T) 


V 


X 




Vectorization of inner DO-loops 
(for timing purposes) 



(See Section 
2240009 



5 for a description of compiler directives.) 
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6.3.4 SET OR CLEAR SENSE SWITCH 

The SWITCH control statement allows a user to turn on or turn off a pseudo 
sense switch. 

In a FORTRAN job, any setting of pseudo sense switches must be performed 
before the system loader (LDR) is executed (i.e., SWITCH statements should 
precede the LDR statement) . Pseudo sense switch settings are available 
to a FORTRAN program referencing the SSWITCH utility procedure (see 
Appendix C) . 



6.3.5 RELOCATABLE LOADER 

The LDR job control statement causes the execution of LDR, the CRAY-1 
relocatable loader. LDR executes within the user field and provides for 
loading and linking of relocatable modules from datasets on mass storage 
into the memory of the CPU. LDR initializes only those entities specified 
with DATA statements. All others remain undefined (i.e., are not default- 
initialized to zero) . 

The system relocatable loader is called through the LDR control statement. 
Absolute load modules can also be loaded. The design of the COS loader 
tables and relocatable loader allows program modules to be loaded, relocated 
and linked to externals in a single pass over the dataset being loaded. 
This minimizes the time spent in loading activities on the CRAY-1. The 
loader allows the immediate execution of the object module or the creation 
of an absolute binary image of the object module on a specified dataset. 
Loader features are governed by parameters of the LDR control statement. 
Loader input is assumed to be on a dataset named $BLD unless otherwise 
specified. 

6.3.6 THE JOB CONTROL STATEMENT FILE 

A job control statement deck prepared by the CRAY-1 FORTRAN programmer 
becomes the first file of the job dataset contained in the CRAY-1. Below 
is a simplified example of a job control deck: 

JOB(JN=MYTEST,M=100,T=70) 

ASSIGN (DN=$IN) 

ASSIGN (DN=$OUT) 

CFT. 

LDR. 
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6.4 ERROR MESSAGES DURING PROGRAM EXECUTION 

While under COS control, the executable program calls upon numerous system 
routines to accomplish certain of its mathematical, input/output and 
utility operations. These are identified as required during compilation 
of the program, are loaded and linked to it by the system loader (LDR) , 
and are contained in the system library ($FTLIB) . When in use, these 
routines will respond to discrepancies in programming and/or certain 
equipment situations with messages placed on the jobfile and on the $OUT 
dataset. Conditions causing these messages also cause the job to abort. 

A description of these messages and their meanings appears in Appendix E. 
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APPENDIXES 



CHARACTER SET 



This appendix describes the 128 control and graphic characters comprising 
the ASCII character set. Those numbers, letters, and special characters 
that form the CRAY-1 FORTRAN character set are identified by the appearance 
of the letter C in the fourth column. All other characters are members of 
the auxiliary character set. The letter A in the fourth column of the 
table indicates those characters belonging to the ANSI FORTRAN character 
set. Note that all control characters are grouped on the first page. 
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__.._„_ ASCII ASCII FORTRAN 

CONTROL 0CTAL puNCHED-CARD (A=ANSI) DESCRIPTION 

CHARACTER C0DE C0DE (C=CRAY) 



NUL 000 12-0-9-8-1 Null 

SOH 001 12-9-1 Start of heading (CC) 

STX 002 12-9-2 Start of text (CC) 

ETX 003 12-9-3 End of text (CC) 

EOT 004 9-7 End of transmission (CC) 

ENQ 005 0-9-8-5 Enquiry (CC) 

ACK 006 0-9-8-6 Acknowledge (CC) 

BEL 007 0-9-8-7 Bell (audible or attention signal) 

BS 010 11-9-6 Backspace (FE) 

HT 011 12-9-5 Horizontal tabulation (FE) 

LF 012 0-9-5 Line feed (FE) 

VT 013 12-9-8-3 Vertical tabulation (FE) 

FF 014 12-9-8-4 Form feed (FE) 

CR 015 12-9-8-5 Carriage return (FE) 

50 016 12-9-8-6 Shift out 

51 017 12-9-8-7 Shift in 

DLE 020 12-11-9-8-1 Data link escape (CC) 

DC1 021 11-9-1 Device control 1 

DC2 022 11-9-2 Device control 2 

DC3 023 11-9-3 Device control 3 

DC4 024 9-8-4 Device control 4 (stop) 

NAK 025 9-8-5 Negative acknowledge (CC) 

SYN 026 9-2 Synchronous idle (CC) 

ETB 027 0-9-6 End of transmission block (CC) 

CAN 030 11-9-8 Cancel 

EM 031 11-9-8-1 End of medium 

SUB 032 9-8-7 Substitute 

ESC 033 0-9-7 Escape 

Fs 034 11-9-8-4 File separator (IS) 

GS 035 11-9-8-5 Group separator (IS) 

RS 036 11-9-8-6 Record separator (IS) 

US 037 11-9-8-7 Unit separator (IS) 

DEL 177 12-9-7 Delete 

Legend: CC - Communication control 
FE - Format effector 
IS - Information separator 
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GRAPHIC 
CHARACTER 


ASCII 

OCTAL 

CODE 


ASCII 
PUNCHED-CARD 
CODE . 


FORTRAN 
(A=ANSI) 
(C=CRAY) 


DESCRIPTION 




(Space) 


040 


(None) 


A,C 


Space (blank) 




j 


041 


12-8-7 




Exclamation point 




ti 


042 


8-7 


C 


Quotation marks (diaeresis) 




# 


043 


8-3 




Number sign 




$ 


044 


11-8-3 


A,C 


Dollar sign (currency symbol) 




% 


045 


0-8-4 




Percent 




& 


046 


12 




Ampersand 




r 


047 


8-5 


C 


Apostrophe (closing single quotation 


mark) 


( 


050 


12-8-5 


A,C 


Opening (left) parenthesis 




) 


051 


11-8-5 


A,C 


Closing (right) parenthesis 




* 


052 


11-8-4 


A,C 


Asterisk 




+ 


053 


12-8-6 


A,C 


Plus 




/ 


054 


0-8-3 


A,C 


Comma (cedilla) 




- 


055 


11 


A,C 


Minus (hyphen) 




. 


056 


12-8-3 


A,C 


Period (decimal point) 




/ 


057 


0-1 


A,C 


Slant (slash, virgule) 







060 





A,C 


Zero v 




1 


061 


1 


A,C 


One 




2 


062 


2 


A,C 


Two 




3 


063 


3 


A,C 


Three 




4 


064 


4 


A,C 


Four 




5 


065 


5 


A,C 


Five 




6 


066 


6 


A,C 


Six 




7 


067 


7 


A,C 


Seven 




8 


070 


8 


A,C 


Eight 




9 


071 


9 


A,C 


Nine 




: 


072 


8-2 


C 


Colon 




t 


073 


11-8-6 




Semicolon 




< 


074 


12-8-4 




Less than 




= 


075 


8-6 


A,C 


Equal 




> 


076 


0-8-6 




Greater than 




? 


077 


0-8-7 




Question mark 
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GRAPHIC 
CHARACTER 



ASCII ASCII FORTRAN 

OCTAL PUNCHED-CARD (A=ANSI) 

CODE CODE (C=CRAY) 



DESCRIPTION 



A 
B 
C 
D 
E 
F 
G 
H 
I 
J 
K 
L 
M 
N 

P 
Q 
R 
S 
T 
U 
V 

w 

X 
Y 
Z 

[ 

\ 



100 
101 
102 
103 
104 
105 
106 
107 
110 
111 
112 
113 
114 
115 
116 
117 
120 
121 
122 
123 
124 
125 
126 
127 
130 
131 
132 
133 
134 
135 
136 
137 



8-4 

12-1 

12-2 

12-3 

12-4 

12-5 

12-6 

12-7 

12-8 

12-9 

11-1 

11-2 

11-3 

11-4 

11-5 

11-6 

11-7 

11-8 

11-9 

0-2 

0-3 

0-4 

0-5 

0-6 

0-7 

0-8 

0-9 

12-8-2 

0-8-2 

11-8-2 

11-8-7 

0-8-5 





Commercial at 


A,C 


\ 


A,C 






A,C 






A,C 






A,C 






A,C 






A,C 






A,C 






A,C 






A,C 






A,C 






A,C 






A,C 






A,C 




— Upper-case 


A,C 






A,C 






A,C 






A,C 






A,C 






A,C 






A,C 






A,C 






A,C 






A,C 






A,C 






A,C 


/ 





Opening (left) bracket 
Reverse slant (backslash) 
Closing (right) bracket 
Circumflex 
Underline 
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GRAPHIC 
CHARACTER 



ASCII ASCII FORTRAN 

OCTAL PUNCHED-CARD (A=ANSI) 

CODE CODE (C=CRAY) 



DESCRIPTION 



a 
b 
c 
d 
e 
f 

g 

h 

i 

J 
k 
1 
m 
n 
o 
P 

q 

r 
s 
t 
u 

V 

w 

X 

Y 

z 

{ 

I 
I 

} 



140 
141 
142 
143 
144 
145 
146 
147 
150 
151 
152 
153 
154 
155 
156 
157 
160 
161 
162 
16 3 
164 
165 
166 
167 
170 
171 
172 
173 
174 
175 
176 



8-1 

12-0-1 

12-0-2 

12-0-3 

12-0-4 

12-0-5 

12-0-6 

12-0-7 

12-0-8 

12-0-9 

12-11-1 

12-11-2 

12-11-3 

12-11-4 

12-11-5 

12-11-6 

12-11-7 

12-11-8 

12-11-9 

11-0-2 

11-0-3 

11-0-4 

11-0-5 

11-0-6 

11-0-7 

11-0-8 

11-0-9 

12-0 

12-11 

11-0 

11-0-1 



Grave accent (opening single quotation mark) 
\ 



— Lower-case letters 



/ 

Opening (left) brace 

Vertical line 

Closing (right) brace 

Overline (tilde, general accent) 
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CRAY-1 FORTRAN INTRINSIC FUNCTIONS B 



The CRAY-1 FORTRAN intrinsic functions described in this appendix have 
been grouped according to general purpose (i.e., trigonometric, exponential, 
etc . ) . This grouping is for convenience and is not provided for in the 
ANSI FORTRAN Standard. Note that these intrinsic functions include all 
"Basic External Functions" as are described separately in ANSI FORTRAN. 
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FUNCTION 


DEFINITION 


FUNCTION 
(«) 


ARGUMENT(S) ' 
(x) 


NOTES 


NAME 


TYPE 


NO. 


TYPE 


RANGE 



TRIGONOMETRIC FUNCTIONS (Angles are in radians) 



S ine 


i/=sin(x) 


SIN 


R 


1 


R 


|x|<2 2 " 




DSIN 





D 


1 1 -'♦8 
Ix|<2 


CSIN 


C 


C 


|x r |i 2 <\ 
■|xi|<2 12 -'ln2 


x=x r +i -xj 


Cosine 


t/=cos (x) 


COS 


R 


1 


R 


W<2 2 " 


• '-. 


DCOS 


D 


D 


Ix|<2 1 ' 8 


CCOS 


C 


C 


|x r |<2 2 \ 
|x,|<2 12 -1n2 


x=x r +i -X. 

■ 1 


Tangent 


y=tan{x) 


TAN 


R 


1 


R 


|x|<2 2 " 


Non-ANSI 


Cotangent 


#=cot(x) 


COT 


R 


1 


R 


l*|<2 2 * 


Non-ANSI 


Arcs ine 


y=arcsin(x) 


ASIN 


R 


1 


R 


|x|<1 


Non-ANSI 


Arccosine 


i/=arccos(x) 


ACOS 


R 


1 


R 


|x| il 


Non-ANSI 


Arctangent 


!/=arctan(x) 


ATAN 


R 


1 


R 


|x|<=> 




DATAN 


D 


D 


i/=arctan(x]/x2) 


ATAN2 


R 


2 


R 


|x,|<», 

0< Ixjlo" 


DATAN2 


D 


D 


Hyperbol ic 
s ine 


t/=sinh(x) 


SINH 


R 


1 


R 


|x|<2 12 -ln2 


Non-ANSI 


Hyperbol ic 
cosine 


y=cosb[x) 


COSH 


R 


1 


R 


|x|<2 12 -ln2 


Non-ANS 1 


Hyperbol ic 
tangent 


y-tanh{x) 


TANH 


R 


1 


R 


|xj<2 12 -ln2 





LOGARITHMIC FUNCTIONS 



Natural 
logari thm 


a-Mx) 


ALOG 


R 


1 


&K 


0<x<» | 


DLOG 


D 





CLOG 


C 


C 


0«|jt|'» |x=x r +i-Xj 


Common 
logari thm 


i^logfx) 


ALOGI0 


R 


1 


R 


0<x<«> 1 


DLOG10 


D 


D 



EXPONENTIAL FUNCTIONS 



Square 
root 


■,=x* 


SQRT 


R 


1 


R 


Osx«» 




DSQRT 


D 


D 


CSQRT 


C 


C 


X r ,Xi<» 


X=X r +i 'Xj 


Exponent 


i=e x 


EXP 


R 


1 


R 


|x|<2 12 -ln2 




DEXP 


D 





CEXP 


C 


C 


|x r |<2^-ln2, 
k,l<2 2 " 


x»x r +i -xj 



The ANSI FORTRAN Standard does not provide lor TAN. COT, ASIN, ACOS, SINH or COSH. 
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FUNCTION 


DEFINITION 


FUNCTION 

(y) 


ARGUMENT (S) 
(x) 


NOTES 


NAME 


TYPE 


NO. 


TYPE 


RANGE 



GENERAL ARITHMETIC FUNCTIONS 



Absolute 
value 






IABS 


I 


1 


1 


|x| «» 




J/- 1*1 


ABS 


R 


R 


DABS 


D 


D 


CABS 


R 


e 


|x r |,|xj|«» 


*0~V0 ■• * 1 *V I 


Positive 
di f ference 


y *i~* 2 rf x \ > x 2 

j/= if xi< x 2 


IDIM 


1 


2 


i 


|x, |,|x 2 |<- 


X\ > X2 


DIM 


R 


R 


Truncate to 

integral 

value 


j/=L*J 


INT 


1 


1 


R 


|x|<2" 6 


Fraction 
lost; no 
rounding 


AINT 


R 


IDINT 


1 


D 


Divide for 

remainder 

only 


y=X]-x 2 - |*i/*2j 


MOD 


1 


2 


1 


0<|x 2 |<» 


Remainder 

of 
X1/X2 


AMOD 


R 


R 


DMOD 


D 


D 


Transfer 
sign 


y= |x,| if x 2 >0 or. 
y=-\x ] | if x 2 <0 


ISIGN 


1 


2 


1 


1*11.1*21*" 




SIGN 


R 


R 


DSIGN 


D 


D 


Obtain 
random 
number 


y 


the f i rst or next in 
a series of random 

numbers (0<i/<1) 


RANF 


R 





- 


- 


Non-ANS 1 


Obtain 
random 
number seed 


y* the currently-used 
1 random number seed 


RANGET 


R 





- 


- 


Non-ANSI 


Estabi ish 
random 
number seed 


y=x 


RANSET 


R 


1 


1 


|x|<"> 


Non-ANSI 


Conjugate 

complex 

value 


y=x r -\-x; 


CONJG 


C 


1 


C 


l* r l .l*j|«» 


x=x + i • x ■ 


Real 

portion of 
comDlex value 


y = x r 


REAL 


R 


1 


C 


|x r |,|x. |<» 


x=x r +'\ -X- 


Imaginary 
portion of 
comDlex value 


y=x\ 


A I MAG 


R 


1 


C 


l* r l.|Xj|<» 


X=X_+i - X| 



The ANSI FORTRAN Standard does not provide for RANF, RANGET or RANSET. 
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FUNCTION 


DEFINITION 


FUNCTION 
(.V 


ARGUMENT(S) 


NOTES 


NAME 


TYPE 


NO. 


TYPE 


RANGE 



MAXIMUM / MINIMUM FUNCTIONS 



Select 

maximum 
val ue 


y=the largest of all x 


MAX0 


1 


>2 


1 


| x | <■= 




AMAX0 


R 


MAX1 


1 


R 


AMAX1 


R 


DMAX1 


D 


D 


Sel ect 

minimum 

value 


i/=the smallest of all x 


MIN0 


1 


>2 


1 


\x\ <°° 




AMIN0 


R 


MINI 


1 


R 


AMIN1 


R 


DMIN1 


D 


D 



TYPE CONVERSION FUNCTIONS 



Integer to 
real 


IJ-X 


FLOAT 


R 


1 


1 


|*|<2"6 




Real to 
integer 


.'/= w 


IFIX 


1 


1 


R 


\x\<2^ 


Fraction 
lost; no 
round inq 


Real to 
double 
preci sion 


y=x 


DBLE 


D 


1 


R 


\x\«° 


Accuracy 
may be 
extended 


Double 
precision 


y=x 


SNGL 


R 


1 


D 


\x\ «= 


Accuracy 
may be 
rprlnr.eri 


Real to 
complex 


y=x.+] -x 2 


CMPLX 


C 


2 


R 


\x } \ ,\x 2 \<" 


!/=o; r +i ■x i 
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CRAY-1 FORTRAN UTILITY PROCEDURES 



The CRAY-1 FORTRAN Compiler (CFT) includes a set of utility procedures 
which, like intrinsic functions, are predefined by name and function. 
Unlike intrinsic functions, however, utility procedures are not provided 
for by the ANSI FORTRAN Standard. They include subroutines as well as 
functions, may have arguments of mixed type, and may modify these arguments' 
contents . 

The following table describes currently available utility procedures . 
Entity types in this table are abbreviated: integer (I) , real (R) , double 
precision (D) , complex (C) , logical (L) , and Boolean (B) . 

The ANSI FORTRAN Standard does not provide for utility procedures. 
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SUBROUTINE 
NAME 


DEFINITION 


ARGUMENT TYPE(S) 






FUNCTION (y) 


x 1 


X 2 


3 


IMUI tl 


NAME 


TYPE 


RTC 


R 


current clock register 
t* content 


- 


- 


- 




TIMEF 


R 


current clock register content 
" ~ in mill iseconds 


- 


- 


- 




SECOND 


cumulative CPU time for 

X = M = 

1 ' job in seconds 


R 


- 


- 




SECOND 


R 


CLOCK 


_ _ current time in ASCI 1 
1 ' code (hh:mm: ss) 


l,R 


- 


- 




CLOCK 


R 


DATE 


current date in ASCII 
x l ~ & ~ code {mm: dd: yy) 


l,R 


- 


- 




DATE 


R 


J DATE 


current date (Julian) in 
x 1 ' J ASC I I code (yyddd ) 


1 ,R 


- 


- 




J DATE 


R 


SYSTEM 


1 


-, \ where 0<a;.< 31 to select one 
.'/ . J\X)> of 32 COS functions 


1 


- 


- 


See the "Exchange 
Processor" section 
of CR1 pub. 22*10012 


EXIT 


Job termination 


- 


- 


- 


Does not return 
control to job 


LOC 


1 


memory address of variable or 
'' ~ array specified for x^ 


B, l,R 
0.C.L 


- 


- 


The ident i ty of x^ 
(and not i ts content) 
is the argument 


SSWITCH 


Xj - 1 if sense switch x. is ON 
x_ = 2 if sense switch x. is OFF, if 
i.<1, or if x t >6 


1 


1 


- 




EODW 


Writes EOD and, as required, EOF and 
EOR ' record (s) on unit x^ 


1 


- 


- 


[a unit number 
x. =|or a Hoi 1 er i th 
(unit name 


IEOF 


1 


y = -1 if EOD processed at unit x. 
y = +1 if EOF read at unit .r 1 
'1 = otherwise 


1 


- 


- 


• r l = 


a un i t number 
or a Hollerith 
un i t name 


UNIT 


R 


;/ = -2.0 if record at unit x. part read 
;< = -1.0 if unit x. transfer successful 

* = 0.0 if EOF or EOD read at unit x. 

i = +1.0 if disk parity error while 

read ing uni t X. 
u = +2.0 if unit Xj error indicated 


1 


- 


- 


Applies only to 
buffered input/ 
output operations 

(a unit number 
x ={or a Hoi ler i th 

(unit name 


LENGTH 


1 


y = words transferred to or from unit .r 
: ' = if EOF or EOD read from unit .r. 


1 


V 


- 


Appl ies only to 
buffered input/ 
output operations 

la unit number 
x ={or a Hollerith 

(unit name 


GETPOS 


1 


starting address of current record in 
■' ~ dataset associated with unit jr. 


1 


- 


- 


[a unit number 
x. =!or a Hoi leri th 
'unit name 


SETPOS 


Set starting address of current record 
in dataset associated with unit x. to 
beginning address of dataset if x_ = 0,to 
ending address if .r. = -1, or to word 
address x. 


1 


1 


- 


[a unit number 
x. ={or a Hoi leri th 
(unit name 
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SUBROUTINE 

NAME 


DEFINITION 


ARGUMENT TYPE(S) 


NOTES 


FUNCTION (y) 


X, 


-2 


X3 


NAME | TYPE 


AND 


B 


Bit-by-bit logical AND 
V (logical product) of x. and x_ 


B.I. 

R,L 


B.l, 
R,L 


- 




OR 


B 


Bit-by-bit logical OR 
" (logical sum) of x f and x_ 


B.I. 
R,L 


B.l. 
R,L 


- 




XOR 


B 


Bit-by-bit exclusive OR 
" (logical difference) of x. and x. 


B.I, 
R,L 


B.l, 
R,L 


- 




EQV 


B 


Bit-by-bit equivalence 
y (XOR) of x, and x ? 


B.I, 
R.L 


B.l, 
R,L 


- 




COMPL 


B 


Bit-by-bit logical complement 
^ of X. 


B.l, 
R,L 


- 


- 




MASK 


B 


y = x. left-justified 1-bits if 0<x.<63 
y = (128-Xj) right-justified 1-bits if 
(,k<x <128 


1 


- 


- 




SHIFT 


B 


x shifted left x„ positions with 
y = leftmost x- positions of x 1 replacing 
those positions vacated 


B.l, 
R,L 


1 


- 


Ci rcular or 
cycl ic shi ft 


SHIFTL 


B 


x. shifted left x, positions with 
y = leftmost x_ positions of x. lost and 
rightmost x, positions set to zero 


B.l. 
R,L 


1 


- 


Logical shift 


SHIFTR 


B 


x, shifted right x_ positions with 

y = rightmost x_ positions of x- lost and 

leftmost x„ positions set to zero 


B.l, 
R.L 


1 


- 


Logical shift 


LEADZ 


1 


y = number of leading zeros in x. 


B,l, 
R.L 


- 


- 




POPCNT 


1 


y = number of ones in x. 


B.l. 
R.L 


- 


- 




CVMGP 


R 


y = x 1 if x 3 > 
y = x 2 i f Xj < 


R 


R 


R 




CVMGM 


R 


y = x i f x- < 

y = x 2 if ij> 


R 


R 


R 




CVMGZ 


R 


y = x f if Xj = 
y = x 2 if x 3 t 


R 


R 


R 




CVMGN 


R 


y = x. i f x, j* 
y = Xy i f x, = 


R 


R 


R 




CSMG 


B 


y = (x 2 nx,) u (x 1 n xj 


B.l, 
R,L 


B.l, 
R.L 


B,l, 
R,L 


Bit-by-bit 
selective merge 
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CFT ERROR MESSAGES 



Error messages produced by CFT, the CRAY-1 FORTRAN compiler, are described 
in this appendix. Errors which might cause faulty execution, of the compiled 
program issue warning messages. Errors that would definitely cause program 
failure or that make further compilation impossible issue fatal error 
messages. Both types of messages are grouped under appropriate headings 
in the following pages. 
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WARNING MESSAGES 

FEWER SUBSCRIPTS THAN DECLARED 

A reference to an actual array element has fewer subscript 
expressions in its subscript than dimension declarators in the 
corresponding array declarator. The missing subscript expressions 
are assumed rightmost in the subscript and are each assigned the 
value 1 by the compiler. 

LAST ARRAY IN DATA LIST NOT PILLED 

The last element in a DATA statement variable list is an unsub- 
scripted array and there are not enough constants specified to 
completely fill the array. Remaining elements of the array are 
not initialized. 

LOSS OF PRECISION IN DEFINITION 

A constant in a PARAMETER statement must be converted to the type 
of the corresponding symbolic name resulting in possible loss of 
precision. 

LOSS OF PRECISION IN TYPE CONVERSION 

The type of a variable and the type of the associated constant 
in a DATA statement differ. The constant is converted to the 
type of the variable and precision is lost. 

MISSING END STATEMENT 

The last or only program unit being compiled lacks and END state- 
ment in its last line. 

NO PATH TO THIS STATEMENT 

The previous statement is an unconditional transfer and this 
statement has no statement number. 

PUNCHES IN COL 1 THRU 5 IGNORED 

Punches appear in the statement number field of a continuation 
card and are ignored. 

STATEMENT IS NONSTANDARD 

A statement is not an ANSI FORTRAN statement but is supported 
by CFT. 

TYPE CONVERSION IN DATA STATEMENT 

The type of a variable and the type of the associated constant 
in a DATA statement differ. The constant is converted to the 
type of the variable. 

TYPE CONVERSION IN DEFINITION 

A constant in a PARAMETER statement must be converted to the type 
of the corresponding symbolic name. 
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FATAL ERROR MESSAGES 

ARRAY CANNOT BE DECLARED EXTERNAL 

An array named in an array declarator is also specified in an 
EXTERNAL statement. 

COMMA EXPECTED 

A required comma has not been specified. The name of a source 
or destination variable, array element, or array is not present 
in an ENCODE or DECODE statement. 

COMMON BLOCK NAME MUST BE // OR /NAME/ 

The specification of a common block name does not conform to the 
rules for constructing symbolic names. 

COMPILER ERROR 

A known inadequacy in the CFT compiler. (Please show your 
listing to a Cray systems analyst.) 

COMPILING TERMINATED DUE TO EXCESSIVE ERRORS 

Compilation of the current program unit is concluded due to the 
large number of errors encountered. This message appears in the 
COS logfile. 

CONFLICT IN NAME USAGE 

A constant name in a PARAMETER statement has been previously 
defined. 

CONSTANT LIST EXCEEDS VARIABLE LIST 

There is not a one-to-one relationship between constants and 
variables in a DATA statement. 

CONSTANT LIST IN DATA STATEMENT BAD 

A DATA statement is missing a constant list or contains an illegal 
separator character. 

CONTROL CARD ERROR 

The compiler cannot interpret information in the CFT control 
statement. This message appears in the COS logfile. 

COUNT > 8 ONLY WITH H OR L IN DATA OR ARGUMENT LIST 

An R-form Hollerith constant is specified with more than 8 
characters, or an H- or L-form Hollerith constant is specified 
with more than 8 characters in other than a DATA statement or 
an actual argument list. 
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DATA IN BLANK COMMON IS ILLEGAL 

The DATA statement cannot be used to initialize blank common. 

DIMENSION EXCEEDED ON DATA STATEMENT 

A subscript in a DATA statement element exceeds the corresponding 
array declaration. 

DIVIDE BY 

Dividing by the constant is illegal . 

DO TERMINATOR PRECEDES DO STATEMENT 

The statement label that terminates a DO-loop precedes the 
corresponding DO statement. 

DO VARIABLE ACTIVE OR IMPROPER 

The loop control variable is either already active from a 
previous loop or is incorrectly specified. 

DOUBLY DEFINED FUNCTION 

Statement functions cannot be defined more than once in a program 
unit. 

DOUBLY DEFINED STATEMENT NUMBER 

Statement labels cannot be defined more than once in a program unit. 

DUMMY ARGUMENT IN EQUIVALENCE STATEMENT 

A dummy argument in a procedure subprogram cannot be named the 
same as a local variable or another dummy argument. 

DUPLICATE COMMON DEFINITION 

Common cannot be defined more than once. 

DUPLICATE DIMENSION OR FUNCTION DECLARATION 

Dimensions and functions cannot be declared more than once. 

DUPLICATE DUMMY ARGUMENT NAMES 

A symbolic name appears twice in the dummy argument list of a 
FUNCTION or SUBROUTINE statement. 

DUPLICATE TYPE DEFINITION 

Variables cannot be given more than one type. 

EBCDIC NOT IMPLEMENTED 

The current version of CFT allows only ASCII characters. 

ERROR IN DATA CONSTANT 

The elements in the constant list of a DATA statement must be 
constants or constant names. 
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ERROR IN SFN PARAMETER LIST 

The formal parameter list in an arithmetic statement function 
definition statement contains an illegal element. 

ERROR NEAR »>cccccccc<« 

An error has been detected within or near the eight listed 
characters from a FORMAT statement. 

EXTERNAL/VARIABLE NAME CONFLICT 

A name has been used for both a variable and an external procedure. 

EXTRA ITEM AFTER LEGAL END OF STATEMENT 

Characters are specified after the syntactic end of a statement. 

FATAL ERROR IN DECLARATIVES 

A syntax error in a specification statement, an ambigously 
declared entity, or other syntactic or statement sequence error. 

FUNCTION MUST HAVE A PARAMETER LIST 

A FUNCTION statement lacks a parenthesized list of dummy arguments, 
required even if the list is empty (in which case the notation 
" ( ) " must be used) . 

FUNCTION NAME IN COMMON OR DIMENSION STATEMENT 

A function name cannot be used as an array name. 

FUNCTION OR CALL REFERENCES ITSELF 

A reference to the function or subroutine subprogram being compiled 
is encountered with that subprogram. 

H,L,R COUNT .LE. ZERO 

In an nH, nL, or rtR specification of a Hollerith value, n is 
less than or equal to zero. 

H,L,R COUNT PAST END OF STATEMENT 

In an nH, nL, or nR specification of a Hollerith value, n specifies 
more characters than are provided. This message also indicates 
that an apostrophe terminating a Hollerith string is not specified. 

HOLLERITH CONSTANT > 8 CHARACTERS 

A Hollerith constant of more than 8 characters is specified in 
other than H- or L-form and in other than an actual argument list 
or a DATA statement constant. 

ILLEGAL CHARACTER 

A nonstandard FORTRAN character, misplaced character, or syntax 

error has been encountered. 

ILLEGAL CHARACTER IN NAME FIELD 

An illegal character is found in a field that must contain a 
symbolic name. 
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ILLEGAL CHARACTER IN NUMBER FIELD 

An alphabetic character appears in what should be a numeric field. 

ILLEGAL COMPLEX RELATION 

Relational operator for complex operands must be .EQ. or .NE. . 

ILLEGAL CONDITIONAL STATEMENT 

This type of statement is not allowed as the conditional statement 
of a direct logical IF statement. 

ILLEGAL CONTINUATION 

More than 19 consecutive continuation cards encountered, or the 
first card of a program unit is a continuation card. 

ILLEGAL DATA REPETITION FIELD 

The repetition count in a DATA constant list must be an integer 
greater than 0. 

ILLEGAL DATA TYPE CONVERSION 

The type of a variable and associated constant in a DATA state- 
ment differ. The type conversion required is illegal or undefined. 

ILLEGAL DO TERMINATOR 

DO loops must not terminate on unconditional transfer statements. 

ILLEGAL FORMAT NAME 

A format identifier cannot be recognized as a statement label 
or the name of an array. 

ILLEGAL MIXED MODE OR CONVERSION 

The types of two operands in an expression are incompatible, or the 
type of array element or variable being defined is incompatible 
with the type of expression being evaluated. 

ILLEGAL STATEMENT SEQUENCE 

An improper sequence of statement types has been encountered 
(i.e., a GO TO statement followed by a DIMENSION statement). 

ILLEGAL STATEMENT TYPE 

A statement keyword is misspell (e.g., DIMENSOIN) or is other- 
wise unidentifiable. 

ILLEGAL SUBSCRIPT IN DATA STATEMENT 

Subscripts in a DATA statement must contain only constants or 
constant names and must be greater than zero. 

ILLEGAL SUBSCRIPT IN DECLARATIVE 

A dimension declarator must be an integer constant or constant 
name or a dummy argument, and must be greater than zero. 
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ILLEGAL TERM IN CONSTANT EXPRESSION 

A constant expression in a PARAMETER or DATA statement is specified 
with other than constants or the symbolic names of constants. A 
constant expression in a DATA statement is specified wxth other 
than constants, the symbolic names of constants, or the names of 
implied-DO variables. 

ILLEGAL TYPE IN SUBSCRIPT EXPRESSION 

A subscript expression is not of type integer or contains a 
constant that exceeds 2 24 -l. 

ILLEGAL TYPE NAME 

A type or IMPLICIT statement contains a keyword other than INTEGER, 
REAL, LOGICAL, COMPLEX, DOUBLE PRECISION, or DOUBLE. 

ILLEGAL UNIT NAME 

An input/output unit identifier cannot be recognized as an integer 
value, a symbolic name, or a Hollerith character string specified 
in H-form. 

ILLEGAL USE OF ** IN CONSTANT EXPRESSION 

A constant expression specifies exponentiation to a non-integer 

power . 

ILLEGAL V ITEM 

The name of a source or destination variable, array element, or 
array in an ENCODE or DECODE statement is not recognizable as such. 

ILLEGAL VALUE IN CONSTANT EXPRESSION 

The evaluation of a constant expression yields a result that is 
out of range. 

ILLEGAL VARIABLE TYPE 

A variable referenced in an ASSIGN or in a computed GO TO state- 
ment is not of type integer. 

INCORRECT ARGUMENT TYPE 

Actual argument is of the wrong type in a function reference. 

INCORRECT NUMBER OF DO ARGUMENTS 

More than three arguments have been encountered after the 
equal sign in a DO statement. 

INPUT FILE EMPTY 

An end-of-file record was encountered as the first record of 
the source input dataset. 

LINE LENGTH EXCEEDS 152 

One or more lines exceed 152 characters during FORMAT statement 
editing. 
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MISSING EQUAL SIGN 

An equal sign is missing in a PARAMETER or statement function 
definition statement. 

MISSING LEFT PARENTHESIS 

Opening and closing parentheses do not match or required 
parenthesis not present. 

MISSING PERIOD 

A delimiting period is missing from a logical operator or logical 
constant. 

MISSING RIGHT PARENTHESIS 

Opening and closing parentheses do not match or required 
parenthesis not present. 

MORE SUBSCRIPTS THAN DECLARED 

An array reference has more subscripts than were declared. 

MORE THAN 7 DIMENSIONS 

CFT does not support arrays having more than seven dimensions. 

NO CLOSING ) 

The closing parenthesis in a FORMAT statement is missing. 

NON -NUMERIC PUNCH IN COLUMNS 1-5 

A statement label specified in columns 1-15 of an initial line 
contains other than digits and blanks. 

NOT ENOUGH MEMORY TO COMPILE 

The program unit is too long to compile in the available memory. 

PARAMETER DOUBLE DEFINED 

A name may be given only one value in a PARAMETER statement. 

RETURN NOT PERMITTED IN MAIN PROGRAM 

A RETURN statement is encountered in a main program unit. 

SFN REFERENCES ITSELF 

A statement function definition statement cannot be recursive. 

STATEMENT NUMBER MISSING 

An ASSIGN statement lacks a statement label reference. 

STATEMENT TEMPORARILY NOT IMPLEMENTED 

A statement is recognized but is not implemented as yet in the 
CRAY-1 compiler. 
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SUBSCRIPT EXCEEDS DIMENSION BOUNDS 

An implied-DO list specified in a DATA statement contains a 
subscript which, when evaluated, yields a result that is less than 
one or greater than the size of the named array. 

SYNTAX ERROR 

Illegal element, name where number required, extra or missing 
punctuation. 

SYNTAX ERROR IN DATA IMPLIED DO 

An implied-DO list specified in a DATA statement is of improper 
syntactical form, references a variable that is not an implied-DO 
variable, or references an array element that does not specify the 
implied-DO variable for this implied-DO list in its subscript. 

TOO MANY ERRORS IN FORMAT, SCAN STOPPED 

CFT attempts recovery from up to three errors before abandoning 
the FORMAT statement. 

UNBALANCED PARENTHESES 

Opening and closing parentheses do not match; required parenthesis 
not present. 

UNDEFINED ASSIGNED SN 

A statement label referenced in an ASSIGN statement is not defined. 

UNDEFINED FORMAT 

A referenced FORMAT statement is not defined. 

UNDEFINED STATEMENT NUMBER 

A referenced statement label is not defined. 

UNDEFINED TYPE CONVERSION 

A constant expression specified in a PARAMETER statement cannot 
be converted to the type of the corresponding constant name. 

UNEXPECTED END OF STATEMENT 

A statement encountered that is syntactically incomplete. 

VARIABLE LIST EXCEEDS CONSTANT LIST 

There must be a one-to-one correspondence between constants and 
variables in a DATA statement. 



I 
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COS ERROR MESSAGES 



During COS control of executable program execution, certain messages will 
be listed in the logfile and in the $OUT dataset to describe certain 
programming and/or equipment discrepancies. These are listed alphabetical- 
ly in this appendix. 
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ARGUMENT ERROR 

An actual argument processed by a specific library routine is out- 
side its allowable bounds. The name of the routine appears in the 
COS logfile. 

BLOCK NUMBER ERROR 

Data error encountered in using the mass storage subsystem. 

BUFFER IN WORD COUNT < 1 

Final transfer location in BUFFER IN statement must be greater 
than or equal to initial transfer location. 

BUFFER OUT WORD COUNT < 

Final transfer location in BUFFER OUT statement must be greater 
than or equal to initial transfer location, or one less than initial 
transfer location if an end-of-record is to be produced following 
a partial write operation 

end of name 

An END statement was executed in FORTRAN program unit name. 
(Processing continues with the next job control statement.) 

ERROR ON OPEN 

A called-for dataset cannot be opened. 

exit called BY name 

A CALL to utility procedure EXIT was executed in FORTRAN program 

unit name. (Processing continues with the next job control statement.) 

FIELD SPECIFICATION MISSING 

A required value is missing after a format specification edit 
descriptor. The applicable format specification is listed in the 
$OUT dataset. 

FILE DOES NOT EXIST 

The required file has not been assigned to this job. 

FILE NOT OPEN 

The required file cannot be written on. 

FORMAT MUST BEGIN WITH ( 

A format specification is incorrect and/or has been destroyed during 
program execution. 
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ILLEGAL FIELD WIDTH 

The field width specified for a format specification edit descriptor 
is in error. The applicable format specification is listed in the 
$OUT dataset. 

ILLEGAL FORMAT CHARACTER 

An illegal character has been encountered in a format specification. 
The applicable format specification is listed in the $OUT dataset. 

ILLEGAL LOGICAL VALUE 

A record being input does not have the letter T or the letter F in 
a field specified as containing a logical value. The applicable 
format specification is listed in the $OUT dataset. 

ILLEGAL SEQUENCE OF CHARACTERS 

Characters encountered in processing a format specification are not 
allowed in the order used. The applicable format specification is 
listed in the $OUT dataset. 

IOERP UNABLE TO WRITE IN $OUT 

The Input/Output Error Processor (IOERP) is unable to write an error 
message on the $OUT dataset ; the $OUT DSP is destroyed. 

I/O SYSTEM ERROR - SEE ANALYST 

An unidentified system error has occurred. 

NUMERIC: EXPONENT OVERFLOW 

An exponent value exceeds the range of legal values in the CRAY-1 
during the conversion of values input under format control. The 
applicable format specification is listed on the $OUT dataset. 

NUMERIC: EXPONENT UNDERFLOW 

An exponent value exceeds the range of legal values in the CRAY-1 
during the conversion of values input under format control. The 
applicable format specification is listed on the $OUT dataset. 

NUMERIC: ILLEGAL CHARACTER 

An illegal character is encountered in a numeric field being converted- 
ed under format control. The applicable format specification is list- 
ed in the $OUT dataset. 

NUMERIC: NULL FIELD 

An input field is encountered during format control processing which 
illegally contains all blank characters. The applicable format 
specification is listed in the $OUT dataset. 

NUMERIC: OVERFLOW 

A value being input exceeds the range of legal values in the CRAY-1 
during its conversion under format control. The applicable format 
specification is listed on the $OUT dataset. 
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PAUSE NOT SUPPORTED, STOP SUBSTITUTED 

The PAUSE statement is the same as a STOP statement in CRAY-1 FORTRAN. 

READ AFTER WRITE 

Reading a record immediately after writing a record on the same file 
is not permitted. All information following the record written is 
destroyed. 

READ CALL OUT OF SEQUENCE 

A sequence of input operations is improperly structured. 

READ PAST END OF DATA 

An input operation has been attempted which goes beyond the physical 
end of dataset. 

RECORD LENGTH EXCEEDED 

An input operation has attempted reading more information than 
contained in the record being read. The applicable format specifi- 
cation is listed on the $OUT dataset. 

STOP nnnnn IN name 

A STOP nnnnn statement was executed in FORTRAN program unit name. 
Processing continues with the next job control statement. 

SYSTEM ERROR - EMPTY INPUT BUFFER 

An input operation attempts to read a file that has never been 
written or that is missing from the last sector of the mass storage 
subsystem. 

UNCLEARED END OF FILE 

An input operation has attempted reading beyond an end-of-file just 
read without an intervening test for its presence. 

UNFORMATTED LIST EXCEEDS RECORD LENGTH 

An unformatted input operation calls for more data than is contained 
in the current record. 

UNIT NO. > 102 or<0 

An out-of-range unit number has been specified. 

UNMATCHED OR TOO MANY PARENTHESIS GROUPS 

Parentheses are nested more than two deep within the outer 

parentheses of format specification or are improperly paired. 

The applicable format specification is listed on the $0UT dataset. 
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VALUE AND SPECIFICATION TYPES DIFFER 

A format specification is encountered which has an edit descriptor 
that cannot be used with the corresponding input/output list item 
(variable, array, etc.) due to data type differences. The appli- 
cable format specification is listed on the $OUT dataset. 

WRITE AFTER UNCLEARED ERROR 

A buffered output operation has been attempted on a unit that was in 
error during the previous transfer and was not checked for (by the 
UNIT function) . 

WRITE CALL OUT OF SEQUENCE 

A sequence of output operations is improperly structured. 

WRITE ON READ ONLY FILE 

An output operation has been attempted on a file protected against 
such. 

WRITE PAST END OF ALLOCATED AREA 

An output operation has been attempted which would cause the allocated 
mass memory subsystem storage area to be exceeded. 

xxxxxxxx was called by yyyyyyyy at location aaaaaaaa 

This message gives information that aids in locating errors causing 
job termination. In the first line, xxxxxxxx is name of the (COS) 
system routine that detected the error. Similar information is 
printed for each previously executed procedure until the name of the 
main program appears as yyyyyyyy- aaaaaaaa identifies the location 
of the applicable exit from the corresponding procedure or main 
program. 
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CREATING NON -FORTRAN PROCEDURES 



This appendix describes and exemplifies conventions for the creation 
of non-FORTRAN function and subroutine subprograms programmed in 
CAL, the CRAY-1 Assembly Language. CAL is documented in Cray Research 
Publication 2240000, "CAL ASSEMBLER VERSION 1 REFERENCE MANUAL". 
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GENERAL 

CRAY-1 Assembly Language (CAL) routines that follow linkage conventions 
described in this appendix can be loaded and executed with executable 
programs compiled by CFT, the CRAY-1 FORTRAN compiler. Conventional 
practices for linking CAL routines with FORTRAN programs are defined in 
the following areas: 

• Argument transmission 

• B and T register use 

• Error traceback 

ARGUMENT TRANSMISSION 

Argument transmission is by one of two methods : 

• Call by address 

• Call by value 

CALL BY ADDRESS 

In the call-by-address mode of argument transmission, memory addresses of 
arguments are provided to the called procedure in locations immediately 
preceding its entry point. The address of the initial actual argument 
in the FORTRAN subroutine call or function reference is stored at entry 
point -1 of the called procedure; the next at entry point -2; etc. A 
maximum of 511 argument addresses may be stored in this manner. The 
called procedure must allocate the memory required for this purpose. 
Note that these arguments (and not their addresses) may be modified by 
the called procedure prior to returning control to the calling FORTRAN 
program unit. 

CALL BY VALUE 

The CRAY-1 FORTRAN Compiler creates a call-by-value sequence of code 
upon encountering references to known library functions. This mode of 
argument transmission may also be used for entering one non-FORTRAN 
procedure from another. 

In the call-by-value mode, the calling procedure enrers an scaiar ana/ 
or vector arguments into V, VL, and/or S registers as appropriate. Return 
arguments, if any, are conveyed to the calling procedure via these same 
registers. In the general case, the first scalar or vector argument (or 
first result) is passed in SI or VI, respectively. If a double or complex 
value is passed, S2 or V2 is used as well. Up to seven registers can be 
used for passing values. These may be a combination of scalar and vector 
registers. However, only one of each pair of similarly numbered S and V 
registers is used (that is, if SI is used for the first value and the 
next argument to be passed is a vector, it will be passed in V2 rather 
than in VI) . 

By convention, procedures developed for call-by-value argument transmission 
are assigned names ending with % (e.g. , SQRT%) . 
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B AND T REGISTER USE 

Contents of the first 56 B and T registers (register addresses 00 through 
67 ) must be saved upon entry to a non-FORTRAN procedure and restored 
before control is returned to the calling procedure. By convention, the 
last eight B and T registers (register addresses 70 through 77 ) are 
work registers that need not be saved and restored even if used by the 
called procedure. 

ERROR TRACEBACK 

Called routines are entered with a return jump. Register BOO, therefore, 
contains the exit address for the called routine. Upon being entered, the 
called routine should load register B01 with the address of a 3-word error 
recovery linkage table. Word 1 of this table contains the called routine 
name (up to 8 left-adjusted ASCII characters) . Word 2 contains the entry 
value contained in BOO (the exit address for the called routine) . Word 3 
contains the entry value contained in B01 (the linkage table address of 
the calling routine) . 



Exampl e : 

The following is an example of a FORTRAN call to a CAL routine: 



CALL TEST (A,B) 



The following CAL code corresponds to this call: 



LOCATION 


RESULT 


OPERAND 


COMMENT 


1 


10 


20 


35 




Al 


A 


ADDRESS OF FIRST PARAMETER 




W.TEST-1 ,0 


Al 


STORE ADDRESS AT TEST-1 




Al 


B 


ADDRESS OF SECOND PARAMETER 




W.TEST-2,0 


Al 


STORE ADDRESS AT TEST-2 




R 


P. TEST 


RETURN JUMP TO TEST 
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Subroutine TEST could be coded in CAL follows: 



LOCATION 


RESULT 


OPERAND 


COMMENT 


1 


10 


20 


35 




IDENT 


EXAMPLE 






ENTRY 


TEST 




BCOUNT 


SET 


5 


ROUTINE USES B2 through B6 


TCOUNT 


SET 


1 


ROUTINE USES REGISTER TO 


TABLE 


CON 


■TEST'L 




BSAVE 


BSS 


2+BCOUNT 


SAVE BO, B1 , ... ,B6 


TSAVE 


BSS 


TCOUNT 


SAVE TO 




BSS 


1 


2ND ARGUMENT ADDRESS 




BSS 


1 


1ST ARGUMENT ADDRESS 


TEST 


AO 


BSAVE 






Al 


2+BCOUNT 






,A0 


B0.A1 


SAVE B REGISTERS 




SO 


TO 






TSAVE, 


SO 


SAVE TO 




Al 


TABLE 


CURRENT LINKAGE TABLE ADDRESS 




B1 


Al 






Al 


W.TEST-1 ,0 


ADDRESS OF FIRST ARGUMENT 




SI 


A1 ,0 


VALUE OF FIRST ARGUMENT 




Al 


W.TEST-2,0 


ADDRESS OF SECOND ARGUMENT 




A1,0 


S3 


RETURN NEW VALUE TO SECOND AR 




AO 


BSAVE 






A2 


2+BCOUNT 






BO.A2 


,AO 


RESTORE B REGISTERS 




S3 


TSAVE, 






TO 


S3 


RESTORE TO 




J 


BO 


RETURN 




END 
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CRAY-1 CENTRAL PROCESSING UNIT 



This appendix highlights those features of the central processing unit 
(CPU) of significance to the CRAY-1 FORTRAN programmer in program unit 
developing and testing. A complete description of the CPU is documented 
in Cray Research publication 2240004, "CRAY-1 Computer System Reference 
Manual . 



2240009 G-l 



THE MEMORY SECTION 

Depending on the model of CRAY-1 Computer System, the memory section of the 
CPU contains 262,144 or 524,288 or 1,048,576 memory locations for retaining 
as many 64-bit CRAY-1 computer words. These locations are evenly divided 
among sixteen independently operating memory banks. Each word is associated 
with a unique address and can be accessed in serially-addressed blocks at a 
rate of 80-million per second. Computer words contained in memory can be 
received from or transmitted to a single section of the CPU at any given 
moment . 
Other features of the memory section include: 

• Memory protection, which guards specified areas of memory 
against inadvertent modification, 

• Error detection and correction, which detects and, in most cases, 
corrects errors encountered in reading from memory locations, 
and 

• Conflict detection and resolution, which enables simultaneous 
memory bank operations and prevents the loss of information when 
memory bank access conflicts occur. 

THE INSTRUCTION CONTROL SECTION 

The instruction control section performs the interrelated CPU functions 
of program and interrupt control. Program control functions obtain and 
execute instructions. Interrupt control functions coordinate the orderly 
processing of unpredictable error and other conditions occurring during 
CPU operation . 

Program control 

Instruction control registers supporting program control functions include: 

• The program register, 

• The instruction buffer registers, 

• The instruction issue registers, and 

• The real-time clock register. 

The 22-bit program (P) register specifies the address of that memory 
location containing the next instruction required for program execution. 
A CRAY-1 instruction is either 16 or 32 bits and is contained in one or 
two of the four 16-bit parcels at that address. (A 32-bit instruction can 
have its first 16 bits in the last parcel at that address and its last 16 
bits in the first parcel at the next higher address.) The P-register also 
indicates which instruction in the word executes. 
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Each of four instruction buffer registers store 64 16-bit instruction 
parcels within the instruction control section. If P-register addresses 
indicate instructions already in the buffer registers , no reference to 
memory occurs. Otherwise, the memory location addressed has its content 
and the contents of fifteen adjacently-addressed memory locations read into 
an instruction buffer register. Instructions to be executed are transferred 
from an instruction buffer register into instruction issue registers. 

The instruction issue registers hold an instruction during its decoding. 
The first seven bit positions of each instruction identify it among 128 
possible CRAY-1 instructions. Instruction execution is complete when the 
CPU actions called for have been produced. 

All sections of the CPU operate on a 12.5 nanosecond time base. The 
instruction control section permits access to a 64-bit real-time clock 
register that is incremented every 12 . 5 nanoseconds . 

Interrupt control 

The interrupt control functions of the instruction control section provide 
for immediate interruption of program execution upon the occurrance of 
certain programming and equipment conditions. The CRAY-1 Operating System 
(COS) is given instant control of the system bv these functions. It is 
provided with information enabling analysis of the situation, selection of 
appropriate actions, and restoration of control to the interrupted computer 
program, if feasible. The mode (M) and flag (F) registers serve inter- 
related functions in accounting for the type of interrupt and the correspond- 
ing action to be taken. An exchange address (XA) register locates the 
sixteen memory locations that contain information required for interrupt 
processing and designated to receive the contents of key operating and 
control registers from throughout the CPU. The procedure through which 
this is accomplished is called an exchange sequence. The content of these 
sixteen registers is referred to as an exchange package. 

THE COMPUTATION SECTION 

The computation section of the CRAY-1 (Figure G-l) consists of operating 
registers and functional units that perform three types of processing: 
vector, scalar, and address. Certain registers and functional units are 
associated with each of these types. For vector processing, there are a 
set of 64-bit multi-element registers , three functional units dedicated 
solely to vector operations, and three floating-point functional units 
shared by vector and scalar operations. For scalar processing, there are 
two levels of 64-bit scalar registers, four functional units dedicated 
solely to scalar processing, and the three floating-point units shared 
with vector operations. For address processing, there are two levels of 
24-bit registers and two integer arithmetic functional units. 
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Vector Registers 




Shift 



Logical 



Add 

Vector 

Functional 

Units 



. Recip. Ap . 
| Multiply ' 



Add 

Floating- 
Point 
Functional 
Units 



Pn p/lZ 



Shift , 



I ngiral 
Add 

Scalar 

Functional 

Units 



Multiph 



Add 

Address 

Functional 

Units 



Figure G-l. The computation section 
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Registers 

The five types of operating registers in the computation section are: 

• Address (A) registers, 

• Intermediate address (B) registers, 

• Scalar (S) registers, 

• Intermediate scalar (T) registers, and 

e Vector (V) registers . 

Supporting registers include the vector length (VL) and vector mask (VM) 
registers . 

A registers - The eight 24-bit A registers are primarily used as address and 
index registers for memory references. They are individually designated 
AO, Al, ..., A7. Data may be directly transferred between A registers and 
memory . 

B registers - The sixty-four 24-bit B registers provide rapid-access 
temporary storage for the A registers. They are individually designated 
BO, Bl, ..., B778 . Data is transferred between B registers and memory 
via high-speed block transfers . 

S registers - The eight 64-bit S registers are the principal scalar registers 
for the CPU. They are individually designated SO, Si, ..., S7. These 
registers serve as source and destination registers during scalar arithmetic 
and logical operations . They may also furnish one operand during vector 
operations. Data flows between these registers and the A, T, V, and VM 
registers and between the S registers and memory. 

T registers - The sixty-four 64-bit T registers provide rapid access 
temporary storage for the S registers. They are individually designated by 
the symbols TO, Tl, ..., T77s. Data is transferred between T registers 
and memory via high-speed block transfers. 

V registers - The eight 64-element V registers are the operating registers 
for vector computations. Each element is 64 bits. The V registers are 
individually designated VO, Vl, ..., V7. These registers serve as a 
source and destination registers for vector arithmetic and logical operations. 
Data flows between V registers and S registers, and between V registers and 
memory . 

The VL register - The 7-bit VL register holds a value in the range of 1-64 
Vector computations are performed on vectors of the length specified by the 
content of VL. 

The VM register - The 64-bit VM register contains a vector mask to control 
register selection during the execution of a vector merge instruction. Bits 
of the VM register can also be set during the execution of a vector mask 
instruction. Each bit of the VM register corresponds to a vector element 
in a selected V register. 
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Comparison of scalar and vector processing 

Scalar instructions apply a function to one or two operands contained in 
registers and enter the result into a register. An example would be adding 
two integers in Si and S2 , then entering their sum into S3. Vector instruc- 
tions apply a function to one or two sets of operands called vectors. The 
addend vector is placed into one V register and the augend vector into 
another V register. Execution of a single vector addition instruction 
would then produce the desired vector sum. In most applications, vector 
processing provides significantly higher result rates than are possible 
using scalar processing. The CRAY-1 FORTRAN compiler includes vector 
instructions at appropriate points in the programs it compiles. 

Functional units 

Arithmetic, logical, and related operations are performed by twelve 
functional units , any number of which may be in operation at once . 

A functional unit receives operands from operating registers , operates on 
them and delivers the result to a register. Functional units generally 
operate in a three-address mode where two source and one destination 
operating register addresses are specified. 

Each functional unit performs its operations in a fixed amount of time . 
The time required between delivery of the operands to a unit and its 
completion of operations is termed "functional unit time" and is measured in 
12.5 nanosecond clock periods. 

Functional units are fully segmented such that a new set of operands 
for the next computation may enter a functional unit each clock period 
even though the functional unit time may be more than one clock period. 

The twelve functional units are described in four groups: address, scalar, 
vector, and floating-point. The address, scalar, and vector groups relate 
to the A, S, and V registers, respectively. The floating-point group 
supports both scalar and vector operations , and accepts operands from and 
delivers results to S and V registers . 

Address functional units - Each address functional unit performs 24-bit 
two's complement integer arithmetic on operands obtained from A registers 
and delivers a result to an A register. 

Address add unit 

The address add unit performs a 24-bit integer addition or subtraction 
in two clock/ periods. 

Address multiply unit 

The address multiply unit forms a 24-bit integer product from two 
24-bit operands in six clock periods. Rounding is not performed. 
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Scalar functional units - Each of four scalar functional units operates 
on 64-bit operands obtained from S registers and, in most cases, delivers 
a 64-bit result to an S register. Arithmetic is two's complement integer. 

Three floating-point functional units are associated with both scalar and 
vector operations. When a floating-point functional unit is used for a 
scalar operation, the general description of scalar functional units applies. 

Scalar add unit 

The scalar add unit performs a 64-bit integer addition or subtraction 
in three clock periods. 

Scalar shift unit 

The scalar shift unit shifts the 64-bit content of an S register or 
the 128-bit content of two concatenated S registers. A shift count 
is obtained from an A register or directly from the instruction. A 
single-register shift is executed in two clock periods; a double- 
register shift in three. 

Scalar logical unit 

The scalar logical unit performs bit-by-bit manipulation of 64-bit 
quantities obtained from S registers. This operation requires one 
clock period. 

Population/leading zero count unit 

This functional unit counts the number of one bits in an operand in 
four clock periods. It also counts the number of leading zero bits 
in an operand in three clock periods. In either case, a 64-bit 
operand is obtained from an S register and a 7-bit result is delivered 
to an A register. 

Vector functional units - Vector functional units operate on operands 
obtained from one or two V registers, or from a V register and S register. 
Results are generally delivered to a V register. 

One or a pair of register elements is transmitted to a funtional unit each 
clock period. The corresponding result is available n clock periods 
later, where n is constant for a given functional unit. The content of 
the vector length (VL) register determines the number of register element 
pairs to be processed by a functional unit. 

The three vector functional units are exclusively associated with vector 
operations. Three floating-point functional units are associated with 
both vector and scalar operations. When a floating-point unit is used for 
a vector operation, the general description of vector functional units 
applies. 
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Vector add unit 

The vector add unit performs a 64-bit integer addition or subtraction 
for a vector operation and delivers the result to a V register. The 
functional unit time for the vector add unit is three clock periods 
per element -pair operation. 

Vector shift unit 

The vector shift unit shifts the 64-bit content of a V register element 
or the 128-bit content of two concatenated V register elements. The 
shift count is obtained from an A register. Shifts are end-off with 
zero fill. The functional unit time is four clock periods. 

Vector logical unit 

The vector logical unit performs bit-by-bit manipulation of 64-bit 
quantities contained in V registers. The functional unit time is 
two clock periods. 

Floating-point functional units - Three floating-point functional units 
perform floating-point arithmetic for both scalar and vector operations. 
When executing a scalar instruction, an operand pair is obtained from S 
registers and the result is delivered to an S register. Operands for 
most vector instructions are obtained from two V registers or from a V 
register and an S register; normalized results are delivered to a V register. 

Floating-point add unit 

The floating-point add unit adds or subtracts two 64-bit floating- 
point operands in six clock periods. 

Floating-point multiply unit 

The floating-point multiply unit performs full- and half-precision 
multiplication of two 64-bit floating-point operands and computes 
two minus a floating-point product for reciprocal operations. The 
floating-point multiply unit also handles integer multiplication as a 
special case. The functional unit time is seven clock periods. 

Reciprocal approximation unit 

The reciprocal appoximation unit approximates the inverse of a 64-bit 
floating-point operand. This operation requires fourteen clock periods. 
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Functional unit relationships 

Table G-l summarizes the relationships between functional units, 
the three computation modes, the three types of arithmetic, and the 
operations performed in the computation section of the CPU. Each 
of the twelve functional units is named in the body of this table. 

Table G-l. Functional unit relationships 



COMPUTATION MODE 


V E C T 


R 


S 


C A L A R 


ADDRESS 


ARITHMETIC TYPE ~"* v 


INTEGER 
(64-BIT) 


FLOATING POINT 
(64-BIT) 


INTEGER 
(64-BIT) 


INTEGER 
(24-BIT) 


OPERATION "% 


ADDITION 


VECTOR 
ADD 


FLOATING-POINT 
ADD 


SCALAR 
ADD 


ADDRESS 
ADD 


MULTIPLICATION 


FLOATING-POINT 
MULTIPLY 


ADDRESS 
MULTIPLY 


RECIPROCAL 
APPROXIMATION 





FLOATING-POINT 
RECIPROCAL 








LOGICAL 


VECTOR 
LOGICAL 





SCALAR 
LOGICAL 


— 


SHIFT 


VECTOR 
SHIFT 


— 


SCALAR 
SHIFT 





POPULATION AND 
LEADING ZERO 
COUNT 


— 





SCALAR 

POPULATION AND 

LEADING ZERO 

COUNT 






Data representations 

All numeric data in the CPU are represented in one of three forms: 

• 24-bit integer 

e 64-bit integer 

e 64-bit floating point 

These are illustrated in figure G-2 . The n bit positions within each 
numeric data word are denoted through tt-1 from left to right . 
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24-BIT 
INTEGER 



(BIT POSITION) 



2's COMPLEMENT 
INTEGER 



23 



64-BIT 

INTEGER 

(BIT POSITION) 1 



64-BIT 
FLOATING POINT 

(BIT POSITION) 1 



S 


2's COMPLEMENT INTEGER 


1 






63 


t 

S 


EXPONENT 


COEFFICIENT 



15 16 

A 

BINARY POINT 

S = Sign bit 

S* = Sign bit of coefficient 



63 



Figure G-2. Numeric data representation 



24-bit integer data - A 24-bit integer datum is represented as a sign bit 
followed by 23 bits. Positive integer values up to 8,388,607 (that is, 
2 -1) may be represented and are indicated by a zero in the leftmost 
(sign) bit position. Negative integer values with magnitudes as large as 
8,388,608 (that is, 2 ) are indicated by a one in the leftmost (sign) 
bit position and are represented in two's complement form. Zero is 
represented by zeros in all 24 bit positions. 



Examples : 



Decimal value 

1J» 

-\k 

1,62^,718 

•1,624,718 



£,388,607 

■8,388,607 

■8,388,608 



2^-bit (octal) 
representat ion 





















1 


6 


7 


7 


7 


7 


7 


7 


6 


2 





6 


1 


h 


5 


2 


1 


6 


7 


1 


6 


3 


2 


5 


6 


2 


























3 


7 


7 


7 


7 


7 


7 


7 


h 




















1 


k 
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64-bit integer data - A 64-bit integer datum is represented as a sign bit 
followed by 63 bits. Positive integer values up to 2 s -1 may be represent- 
ed and are indicated by a zero in the leftmost (sign) bit position. 
Negative integer values with magnitudes as large as 2 are indicated by a 
one in the leftmost (sign) bit position and are represented in two's comple- 
ment form. Zero is represented by zeros in all 64-bit positions. 



Examples : 



64-bi t (octal) 
Decimal value representation 



14 000000000000000000016 

-14 1777777777777777777762 

7,291 ,3^3,192,400,000,615 0624600340022635573147 

-7,291,343,192,400,000,615 11531774377551*t2204631 

0000000000000000000000 

9,223,372,036,854,775,807 0777777777777777777777 
-9,223,372,036,854,775,807 1000000000000000000001 

-9,223,372,036,854,775,808 1000000000000000000000 

64-bit floating-point data - A 64-bit floating-point datum is represented by 
a sign bit followed by 15 exponent bits followed by 48 coefficient bits. 
As illustrated in figure G-2, the implied binary point for the coefficient 
precedes its first bit (position 16) such that the coefficient is always 
less than one. 

The sign of the coefficient is in the leftmost bit of the word (that is, 
position zero) , is zero to indicate a positive coefficient and is one to 
indicate a negative coefficient. The value of the coefficient is contained 
in the rightmost 48 bit positions of the word (positions 16 through 63) . 
Unlike integer value representations which are expressed in two's complement 
form when negative, a floating-point coefficient is the same for both positive 
and negative representations of the same value; only its sign bit changes. 
This is spoken of as signed magnitude representation. The largest fraction- 
al value the coefficient may accurately contain is 1-2" 

The exponent portion of a floating-point data representation occupies bit 
positions 1 through 15 of the word. It contains a value representing that 
positive or negative integral power of two by which the coefficient is to 
be multiplied. A biased exponent value of 40000s represents 2 (or a 
multiplier of 1) . This value may be increased to a maximum of 57777 8 which 
represents 2 
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Correspondingly, it can be decreased to a minimum of 20000s which represents 
2 8192 . Exponent values of 60000s or higher, or of 17777 8 or lower, are 
invalid and represent out-of -range situations. An exponent values of zero is 
an exception; it is invalid except when used with a coefficient of zero 
to represent the quantity zero. Table G-2 summarizes the interpretations 
of significant exponent value ranges. 

Table G-2. Significant exponent value ranges 



Exponent 


Interpretation 





Valid only for the value zero 


1 - 17777 8 


Invalid 


20000s - 37777 8 


2 -8l92 _ 2 -l 


40000s 


2° 


40001 8 - 57777s 


2 1 _ 2 8191 


60000s - 77777s 


Invalid 



The appearance of leading zeros in the coefficient portion of a floating- 
point value characterizes that value as being unnovmalized . The normalized 
form has these leading zeros eliminated and the exponent adjusted according- 
ly. The CRAY-1 FORTRAN compiler assumes only normalized floating-point 
values. 

Examples : 





Float 


i ng-point 


representat ion (octal ) 


Notes 


Sign 


Exponent 


Coefficient 


Decimal value 


(0) 


(1-15) 


(16-63) 




.5 





40000 


4000000000000000 


Normal i zed 


-.5 


1 


40057 


0000000000000001 


Unnormal i zed 


• 75 





40033 


0000000006000000 


Unnormal ized 


-1.75 


1 


40001 


7000000000000000 


Normal i zed 


1 .00 





40001 


4000000000000000 


Norma 1 i zed 


-2.00 


1 


40002 


4000000000000000 


Normal i zed 


281,474,976,710,655 





40060 


7777777777777777 


Normal i zed 


-140,737,488,355,327.5 


1 


40057 


7777777777777777 


Norma 1 i zed 


562, 9*9, 953, *»21 ,310 





40061 


7777777777777777 


Normal i zed 


-.25 


1 


37777 


4000000000000000 


Norma 1 i zed 


.000000000001 





37731 


4313631402267520 


Normal i zed 


-1,000,000,000,000 


1 


40050 


7215224504000000 


Normal i zed 


(1-2 - 8 ) 





40000 


7777777777777777 


Normal i zed 








00000 


0000000000000000 


Zero 
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Floating-point operations deal chiefly with normalized values to provide 
for the most accurate representation possible in the 48 coefficient bit 
positions. (The CRAY-1 FORTRAN programmer requires an understanding of 
unnormalized floating-point values only for certain error analysis 
situations.) 

The only representation of zero permitted is a word containing zeros in all 
64 bit positions. 

Arithmetic operations 

The three types of arithmetic operation in the CRAY-1 CPU are: 

• 24-bit integer, 

e 64-bit integer, and 

o 64-bit floating point. 

Integer arithmetic operations - All integer arithmetic, whether 24-bit or 
64-bit, is performed in two's complement. Address add and address multiply 
functional units perform 24-bit integer arithmetic. Scalar add and vector 
add functional units perform 64-bit integer arithmetic. 

Multiplication of two integer operands is accomplished by the floating- 
point multiply unit which recognizes zero exponents in both operands as 
a special case. The upper 48-bits of the result are returned as an un- 
normalized value preceded by fifteen zeros. Division of integers requires 
that they first be converted to floating-point format, then processed by 
the floating-point functional units . 

Floating-point arithmetic operations - Floating-point numbers are represented 
as a signed binary coefficient and an exponent or power of two. 

In terms of decimal values, the floating-point format of the CRAY-1 allows 
the expression of numbers accurate to about 15 decimal digits and in the 

j • t c i^ - 2500 .. , -,,-+2500 

approximate decimal range of 10 through 10 

Normalized floating point 

A non-zero floating-point number is normalized if the most significant 
bit of the coefficient (position 16) is one. This condition implies 
that the coefficient has been shifted to the left as far as required 
to eliminate all leading zeros. 

Floating-point range errors 

Overflow of the floating-point range is indicated by an exponent value 
of 600008 or greater; underflow by an exponent value of 17777s or less. 
Detection of the overflow condition can cause an interrupt depending 
upon the mode (M) register content. 
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Floating-point addition 

A floating-point add range error condition is generated when the larger 
incoming exponent is greater than or equal to 60000@ . The floating - 
point error flag is set and an exponent of 60000q is sent to the result 
register along with the computed coefficient, as in the following 
example: 

60000.4 (Range error) 

+ 57777.4 



60000.6 (Range error) 

Floating-point multiplication 

In the floating-point multiply unit, if the exponent of either operand 
is greater than or equal to 600008 or if the sum of the two exponents 
is greater than or equal to 6OOOO3 , the floating-point error flag is 
set and an .exponent of 60000g is sent to the result register along with 
the computed coefficient. 

An underflow condition is detected when the result exponent is less 
than or equal to 11111% and causes a zero exponent and coefficient to 
be returned to the result register. Underflow is also generated when 
either, but not both, operand exponent is zero. Both exponents equal 
to zero is treated as an integer multiply. 

The floating-point mulitply unit approximates a normalized 48-bit 
fractional product. This results in a product variation between 
1.16 x 10~ 16 and 6.66 x 10~ 16 . 

Floating-point reciprocal approximation 

For the floating-point reciprocal approximation unit, an incoming 
operand with an exponent less than or equal to 20001s or greater 
than or equal to 60000e causes a floating-point range error. The 
error flag is set and an exponent of 60000s is associated with the 
computed coefficient. 

Floating-point division is performed by the reciprocal approximation 
method. 
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The division algorithm that computes S1/S2 to full precision requires 
four operations : 

1. S3 = I/S2 Reciprocal approximation 

2. S^ = (2 - S3 • S2) Reciprocal iteration 

3. S5=Si • S3 Numerator approximation 

4. 86=34-85 Half-precision quotient correction 

factor 

This approximation is based on Newton's method and, at step 1, is 
correct to 30 bits. The additional Newton iteration at step 2 
increase this accuracy to 47 bits and is applied as a correction 
factor at step 4 in a full-precision multiply operation. 

Where 31 bits of accuracy is sufficient, the reciprocal approximation 
instruction may be used with half-precision multiplication to produce 
a half-precision quotient. 

The 18 lowest-order bits of half-precision results are returned as zeros . 
Rounding is applied to the 30-bit result. 

Logical operations 

The scalar and vector logical units perform bit-by-bit manipulation of 
64-bit quantities. Operations provide for forming logical products, 
logical differences, and logical sums. 

A logical product is the AND function: 

operand one 10 10 

operand two 110 

result 10 
A logical difference is the exclusive OR function: 

operand one 10 10 

operand two 110 

result 110 
A logical sum is the inclusive OR function: 

operand one 10 10 

operand two 110 

result 1110 
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THE INPUT/OUTPUT SECTION 

The input/output section of the CPU contains twelve input and twelve output 
channels that are divided into four groups of six channels each. 

Each input channel consists of a 16-bit data channel, a 64-bit assembly 
register, a current address register, and a limit address register. An input 
channel can cause a CPU interrupt condition when the current address equals 
the limit address or when the input device sends a disconnect signal . 

Each output channel consists of a 16-bit data channel, a 64-bit disassembly 
register, a current address register, and a limit address register. An 
output channel .can cause a CPU interrupt condition when the current address 
equals the limit address. A disconnect is sent to the output device after 
the last word of a transmission has been sent and acknowledged as received. 

It is possible to have an I/O memory request every clock period. 

Maximum request rates in clock pulses (CPs) are: 

• 1 channel 8 CPs (10 million words per second) 

• 1 channel group 4 CPs (20 million words per second) 

• All channel groups 1 CP (80 million words per second) 
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RANDOM INPUT/OUTPUT OPERATIONS H 



FORTRAN input/output statements provide for the transfer of information 
directly to and from input/output devices. CRAY-1 FORTRAN input/output 
statement specification conforms with this provision but is also able 
to exploit the presence of these data in memory. This enables random 
input/output operations to be performed whereby records can be accessed 
directly instead of serially. This appendix describes methods for per- 
forming random input/output operations. 
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The CRAY-1 FORTRAN Compiler (CFT) associates unit identifiers specified 
in input/output statements with datasets assigned to a job. This assoc- 
iation permits input/output statements to perform operations on datasets 
as though they were actual input/output devices. Thus, the forms of 
these statements remain standard. Within a dataset, each of a sequence of 
files contains a sequence of records. Input/output statements normally 
operate on these files and records in their order of appearance within 
the dataset (i.e., perform sequential input/output operations). 

CFT provides for non-sequential or random input/output operations on data- 
sets through the use of the utility procedures GETPOS and SETPOS (see 
Appendix C) . Additionally, any dataset to be processed in this manner 
must be so identified on the ASSIGN control statement for that dataset 
(as described in Cray Research publication 2240011, "CRAY- OS Version 
1.0, External Reference Specification"). 

A dataset can only be created using sequential output operations. It may 
be accessed and modified through random input/output operations but only 
if the lengths and starting locations of each record in the dataset are 
determined initially and kept current. 

Using random input/output operations, any record in the datafile can be 
replaced by a record of equal length without rewriting the entire datafile. 

The following is an example of random input/output programming. 



Example: 

In the main program below, up to one hundred records containing from zero 
to ten words each are written into a dataset associated with input/output 
unit 1. A final record of up to 201 words is added and contains length 
and location information for each preceding record plus a count of their 
number. The dataset is rewound. At a later point in the program, a sub- 
routine is called which causes all records to be read in reverse order 
and all but the last stored into ten word vectors of a one hundred vector 
array. Information in the last record directs this process. The sub- 
routine then returns control to the main program. 

The following are assumed preset: 

• NRECS to the number of records to be processed (1 <NRECS<100) 

• RLENGTH(-'.) to the number of words in the ith record written 
(0<RLENGTH(i)<10) 

• RECORD (j) to the jth word to be written in each non-empty record 
(l<J<RLENGTH(i)) 
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PROGRAM RANDOMIO 

INTEGER RLENGTH(IOO) .ADDRESS (100) ,RECORD(10) ,NRECS ,LRA, RESULT 

COMMON RESULT (100, 10) 

« 

DO 20 l=1,NRECS 
ADDRESS ( I )=GETP0S(1) 
20 WRITEO) (REC0RD(J),J=1,RLENGTH(l)) 
LRA=GETP0S(1) 
WRITE (1)NRECS,(RLENGTH( I), ADDRESS ( I ),I=1,NRECS) 

REWIND(I) 



CALL READIN(LRA,1) 



END 



SUBROUTINE READ I N (LRA.UN IT) 

INTEGER RCOUNT.RADDRESS(IOO) ,LNGTH(100) .RESULT, UNIT, LRA 

COMMON RESULT(100,10) 

CALL SETPOS(UNIT.LRA) 
READ(UNlT)RC0UNT,(LNGTH(l),RADDRESS(l),l=1,RC0UNT) 

DO 10 1=1 .RCOUNT 
J=RC0UNT-I+1 

CALL SETP0S(UNIT,RADDRESS(J)) 
10 READ(UNIT)(RESULT(I,K),K=1,LNGTH(J)) 



END 
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Actual argument 


3-131 


Actual array declarator 


3-29 


Addition operator 


3-36,3-39 


Adjustable array declarator 


3-28 


Alphanumeric characters 


3-3 


ANSI FORTRAN 




character set 


A-l 


conformance to standard 


3-1 


Argument 




actual 


3-53,67,131 


association of 


3-131 


dummy 


3-130 


storage 


3-137 


transmission 


F-2 


Arithmetic assignment statement3-70 


Arithmetic constants 


3-20 


Arithmetic expression 


3-35 


Arithmetic IF statement 


3-75 


Arithmetic operations, CRAY-1 


G-9 


Array 




actual 


3-31 


adjustable 


3-34 


data initialization 


3-68 


data type 


3-29 


declarator 


3-28,58 


defined entities 


3-139 


definition 


3-28 


dimensionality 


3-29 


dummy 


3-31 


dummy arguments 


3-132 


element name 


3-19 


element order 


3-30 


name 


3-19 


properties 


3-29 


size 


3-29 


storage 


3-30,137 


symbolic name 


3-143 


undefined entities 


3-138 


ASCII character set 


A-l 


ASSIGN control statement 


6-3 


ASSIGN TO statement 


3-71 


Assigned GO TO statement 


3-74 


Asterisks in output 


3-101 


Auxiliary character set 


3-3 


BACKSPACE statement 


3-91 


Blank common 


3-61 


Blank characters in constants 


3-20 


Blanks in input 


3-101 


BLOCK DATA statement 


3-135 


Block data subprograms 


3-10,135 


Boolean constants 


3-25 


Boolean data 


3-14 


Brackets, square 


3-2 


BUFFER IN statement 


3-112 


BUFFER OUT statement 


3-113 



Buffered I/O operations 3-111 

CAL procedures 
CALL statement 
CFT (see Compiler) 
CFT control statement 
Character, alphanumeric 
Character set 
ANSI 
ASCII 
auxiliary 
FORTRAN 
Characters , control 
CODE directive 
Coding form 
Collation sequence 
Columns on coding form 
Comment lines 
Common block 

blank 

COMMON association 

EQUIVALENCE association 

list 

named 

size 

storage sequence 

storage unit association 

symbolic name 
COMMON statement 
Compiler 

input to 

directive lines 

directives 

output from 
Complex constants 
Complex data 

COMPLEX FUNCTION statement 
COMPLEX statement 
Computation section 

arithmetic operations 

data representation 

functional units 

logical operations 

registers 

scalar and vector processing 
Computed GO TO statement 
Constants 

array declarator 

description 

Hollerith 

increment integer 

name 

symbolic names 
Continuation lines 
CONTINUE statement 
Control characters 



1 
126 

4 
3 

1 

1 

3 

3 

90 

•7 

■7 

•3 

•7 

-9,18 

•59,60 

■61 

•60 

•59 

■2 

•61 

•61 

-61,137 

-61 

-141 

-60,62 

-1 

-9;5-6 

-5 

-1 

-24 

14 

123 

64 

3 

13 

9 
-6 

15 

5 

6 

73 

28 
-4,20 

44 

2 
-29 
-143 

9 

81 

90 
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Conversion 



complex 


3-44 


double precision 


3-43 


integer 


3-43 


maximum value 


3-43 


real 


3-43 


type 


3-43 


zero value 


3-43 


COS (see operating system) 




CPU 




computation section 


2-3;G-3 


general description 


2-2 


input/output section 


2-3;G-16 


instruction section 


2-3;G-2 


memory section 


2-3;G-2 


CRAY-1 Computer System 




configuration 


2-1 


general description 


G-l 


overview 


2-1 


Data 




arithmetic assignment 


3-70 


ASSIGN statement 


3-71 


association 


3-15 


deck 


6-1 


declaration 


3-58,66 


definition 


3-15 


form 


3-10 


formatted assignment 


3-115 


formatted transfer 


3-90 


identifiers 


3-19 


initialization 


3-68 


logical assignment 


3-71 


name 


3-10 


reference 


3-15 


representation 


3- 14 


specification 


3-14,19 


storage 


3-15 


transfer direction 


3-88 


type 


3-10,41 


unformatted transfer 


3-89 


DATA statement 


3-68,69 


Dataset 


3-84 


DD-19 drives 


2-2 


Decimal point in input 


3-101 


Decimal range of constants 


3-21 


Declarator 




actual array 


3-31 


adjustable array 


3-34 


array 


3-28,58 


dimension 


3-28 


dummy array 


3-31 


DECODE statement 


3-115 


Dimension declarator 


3-28 


Dimension limit 


3-14 


DIMENSION statement 


3-58 


Direct logical IF statement 


3-76 


Disjuncts, logical 


3-49 



Disk storage unit 
Dividing by zero 
Division operator 
DO-list, implied 
DO-loops 

active 

dependencies 

description 

DO-variable 

execution 

inactive 

iteration count 

loop control processing 

range 

terminal statement 

transfer into 

transfer of control 

vectorizable 
DO statements 

Double-precision constants 
Double-precision data 
DOUBLE PRECISION statement 
DOUBLE PRECISION FUNCTION 

statement 
DOUBLE statement 
Dummy arguments 
Dummy array declarator 

Edit descriptor 
A 

apostrophe 
asterisk 
colon 
D 

description 
E 
F 
G 
H 
I 
L 

P 

quotation mark 
R 

slash 
T 
X 
Z 
Editing of data 
complex 
description 
double-precision 
integer 
numeric 
positional 
real 
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3-78 
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3-77 

3-79 

3-78 

3-78 

3-79 

3-79 

3-78 

3-79 

3-81 

3-78 

4-1,9 

3-77 

3-23 

3-14 

3-64 

3-123 
3-64 

3-130,132 
3-29 
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3-97 

3-97 

3-99 

3-103 

3-93 

3-104 

3-103 

3-106 

3-98 

3-101 

3-108 

3-107 

3-99 

3-97 

3-110 

3-99 

3-98 

3-98 

3-108 

3-103 

3-83 

3-103 

3-101 

3-101 

3-98 

3-103 
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EJECT directive 

elements of arrays 

Ellipses in this publication 

ENCODE statement 

END statement 

Endfile record 

ENDFILE statement 

End-of-file record 

ENTRY statement 

EQUIVALENCE statement 

Error messages 

CFT fatal error 

CFT warning 

Operating system 

Program execution 
Error traceback 
Execution 

end 

main program 

sequence 
Exponent iation 
Expressions 

arithmetic 

arithmetic relational 

Boolean 

complex 

definition 

double-precision 

evaluation 

equivalent 

Hollerith 

Hollerith relational 

integer 

interpretation 

logical 

real 

relational 

subscript 

type y 
External functions 
External procedures 
EXTERNAL statement 

Factors 

Fatal error messages 

Field width 

Files 

Floating point values 

Format identifier 

Format specification 

FORMAT statement 

Formats, input/output 

Formatted data assignment 

Formatted record 

FORTRAN call to CAL routine 

FORTRAN character set 

FORTRAN language 

FORTRAN programming 
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3-14 

3-2 

3-115 

3-82 

3-83 

3-91 

3-83 

3-128 

3-58,62 

5-5;D-3 

5-4;D-2 

E-l 

6-7 

F-3 

3-81 
3-10 
3-17 
3-36 

3-35 

3-45,54 

3-51,55 

3-41 

3-35 

3-41 

3-52 

3-54 

3-44,55 

3-46 

3-41 

3-41 

3-47,55 

3-41 

3-45,55 

3-31 

3-41 

3-13,123 

3-13 

3-67 

3-38 

5-5 

3-97 

3-84 

3-23;G-9 

3-92 

3-92 

3-92 

3-85 

3-115 

3-83 

F-l 

3-3 

3-1 

4-1 



Functions 

description 

dummy arguments 

external 

intrinsic 

name 

order of evaluation 

reference execution 

referencing 

subprograms 
FUNCTION statement 
Functional units in CPU 



3-14 

3-133 

3-123 

3-119 

3-19 

3-53 

3-53 

3-118 

3-12 

3-123 

G-6 



Global entities 


3-140 


GO TO statements 




assigned 


3-74 


computed 


3-73 


unconditional 


3-72 


Hollerith constant 


3-26,44 


Hollerith data 


3-14 


Hollerith expressions 


3-44 


Host processor 


2-1 


Identity operator 


3-36,39 


IF statement 




direct logical 


3-76 


indirect logical 


3-77 


three-branch 


3-75 


two-branch 


3-75 


IMPLICIT statement 


3-65 


Implicit type 


3-19 


Implied DO-list 


3-87 


Initial line 


3-9 


Input/output 




buffered 


3-111 


lists 


3-86 


operations 


3-83,111 


random 


3-84 ;H-1 


section of CPU 


2-3 


sequential 


3-84 


statement execution 


3-88 


Instruction 




in CPU 


2-3 


interrupt control 


G-3 


program control 


G-2 


Integer constants 


3-21 


Integer data 


3-14 


Integer division 


3-54 


INTEGER FUNCTION statement 


3-123 


INTEGER statement 


3-65 


Interpretation rules 


3-52 


Interrupt control 


G-3 


Intrinsic functions 




CRAY-1 FORTRAN 


B-l 


description 


3-12,119 


examples 


3-120 


EXTERNAL statement 


3-67 


referencing 


3-119 


restrictions 


3-120 


symbolic name of 


3-144 
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Invariant values 

Italics in this publication 

IVDEP directive 

Job control deck 

JOB control statement 

Job control statement file 

Job control statements 

Job dataset 

Keywords 

Labels, statement 

LDR control statement 

LENGTH function 

Less than operator 

Lines 

List 

List control information 

LIST directive 

List items 

Lists , input/output 

Local entities 

Logical assignment statement 

Logical constants 

Logical data 

Logical expression 

LOGICAL FUNCTION statement 

LOGICAL statement 

Main program 

Mass storage subsystem 

MCU 

Memory 

Memory operations 

Multiplication operator 

Named common 
Names 

array element 

array use 

main program 

symbolic 
Negation operator 
NOCODE directive 
nolist directive 
Notation in FORTRAN 
NOVECTOR directive 

Operating system 
error messages 
general description 
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5-8 

6-1 
6-2 
6-6 
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6-1 

3-6 

3-5 

6-6 

3-114 

3-45 

3-9,16 

3-6 

3-86 

5-7 

3-6 

3-86 

3-141 

3-71 

3-25 

3-15 

3-48 

3-123 

3-64 

3-10,116 

2-2 

2-1 

G-2 

4-9 

3-36 

3-71 

3-31 

3-34 

3-140 

3-5 

3-36,39 

5-7 

5-7 

3-3 

5-7 
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6-1 



Operators 
addition 
arithmetic 
consecutive 
description 
division 
equal to 
exponentiation 
greater than 

greater than or equal to 
identity 
less than 

less than or equal to 
logical conjunction 
logical equivalence 
logical exclusive disjunction 

logical inclusive disjunction 



36,39 

36 

39 

■6 
36 
45 
36 
■45 
45 
39 
■45 
■45 
47 
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logical negation 


3-47 




logical non-equivalence 


3-47 




multiplication 


3-36 




negation 


3-36, 


39 


not equal to 


3-45 




precedence among types 


3-51 




precedence of arithmetic 


3-36 




relational 


3-45 




subtraction 


3-36, 


39 


Operands 






arithmetic 


3-37 




logical 


3-48 




relational 


3-45 




Output 






common block name list 


5-2 




fatal error messages 


5-5 




source statement listing 


5-2 




statement label list 


5-4 




symbolic table 


5-2 




warning messages 


5-4 




PARAMETER statement 


3-20, 


66 


Parentheses 


3-54 




PAUSE statement 


3-82 




Peripherals 


2-1 




Position, record on file 


3-84 




Positional editing 


3-98 




Positioning by format control 


3-96 




Powers of negative values 


3-53 




Powers of zero 


3-53 




Precision of real constants 


3-23, 


24 


Primaries 


3-37, 


48,52 


PRINT statement 


3-85 




Printer control 


3-90 




Printing 


3-90 
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Procedure 

external 

utility 
Procedure subprograms 
Program control 
Program, executable 
Program specification 
PROGRAM statement 
Program unit 
PUNCH statement 

Quotients , integer 
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3-72 

3-10 

3-1 

3-117 

3-10 

3-85 
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Random I/O operations 


H-l 


READ statement 


3-85 


Real constants 


3-21 


Real data 


3-14 


Real exponent 


3-23 


REAL FUNCTION statement 


3-123 


REAL statement 


3-64 


Record 


3-83 


Registers , CPU 


G-5 


Relocatable binary program 


5-2 


Relocatable loader 


6-6 


RETURN statement 


3-129 


REWIND statement 


3-91 


Rows on coding form 


3-7 


Scale factor 


3-99,104 


Sequence 


3-3 


Source deck 


6-1 


Specification subprogram 


3-10 


Statement 




classification of 


3-56 


data specification 


3-56 


description 


3-7 


executable 


3-7,56 


functions 


3-12,120 


functions , names of 


3-144 


label 


3-5 


label list 


5-4 


list output 


5-2 


nonexecutable 


3-7,57 


order of 


3-16 


size 


3-7 


syntax 


3-2 


STOP statement 


3-81 


Storage sequences 


3-15,137 


Storage units 


3-15 


Subprogram 


3-10 


SUBROUTINE statement 


3-126 


Subroutine subprograms 


3-12 


Subroutines 


3-13,126 


Subscript values 


3-31 



Subtraction operator 


3-36,39 




SWITCH control statement 


6-6 




Symbol table 


5-2 




Symbolic names 


3-5,19,140 




Syntactic items 


3-4 




Syntax of statements 


3-2 




Temporary variables, use of 


4-2 




Terminal lines 


3-9 




Terms 


3-38 




Terms , logical 


3-48 




Type, change of 


3-65 




Type statements 


3-19,64 




Unconditional GO TO statement 


3-72 




Unformatted record 


3-83 




UNIT function 


3-113 




Unit identifier 


3-85 




Units, input/output 


3-85 




Unsigned constant 


3-21 




Utility procedures 


3-12, 135; C- 


1 


Value 






arithmetic expression 


3-54 




arithmetic relational 






expression 


3-45 




Boolean expression 


3-51 




false 


3-45,46 




Hollerith relational 






expression 


3-46 




logical disjunct 


3-49 




logical expression 


3-49 




logical factor 


3-49 




logical term 


3-49 




true 


3-45,46 




Variables 






defined entities 


3-138 




description 


3-14 




dummy arguments 


3-132 




initialization of data 


3-68 




name 


3-19 




storage sequences 


3-137 




symbolic names 


3-143 




undefined entities 


3-139 




Vector array reference 


4-2 




VECTOR directive 


5-7 




Vector operations , programming 


4-1 




Vectorization of DO-loops 


4-2,9 




Vertical spacing on print 






output 


3-90 




Warning messages 


5-4 




WRITE statement 


3-85 
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PI E SEAR C H.I IV C. 



CFT CONTROL STATEMENT FORMAT 



The form of the CFT control statement is: 



C FT (I =idn , l=ldn , Q=bdn , C=odn , QW=str>ing , FF=string ) 



I, L, B, C, ON, and OFF may appear in any order or may be omitted to 
cause the default options described below to apply. If all are omitted, 
a period may be used in lieu of empty parentheses. 

idn specifies a source input dataset; default is $IN. 

Idn specifies a listable output dataset; default is $0UT. 

bdn specifies a binary output dataset; default is $BLD. 

odn specifies a listable output dataset in a form suitable for 

input to the CRAY-1 Assembly Language assembler, CAL; default 
is no dataset. 

string specifies a string of letters each of which enables or disables a 
particular compiler option when specified ON or OFF, respectively. 
The default is described with each option in the chart below. 



Letter In 

string 


ON 

(enables 

option) 


OFF 
(supresses 
option) 


Compi lation option 
(t indicates default) 


A 




t 


Aborts job after compilation if any of the 
program units contains an error. 


B 


t 




List beginning sequence number of each block of 
vectorlzable code (G implies B) . 


C 


t 




List common block names and lengths after each 
program unit. 


E 


t 




Enable recognition of compiler directive lines. 


G 




t 


List code generated for each program unit. 


1 




t 


List CFT-generated statement labels in symbol 
table. 


L 


t 




Enable recognition of listable output control 
d i recti ves. 


N 




t 


List null statement labels in the symbol table. 


Q 


t 




Abort CFT when 100 errors have been encountered. 


s 


t 




List FORTRAN statement. 


T 


t 




List symbol table for each program unit. 


V 


t 




Vectorize inner DO loops (for timing analyses). 


w 




t 


List warning messages. 


X 




t 


List cross-references within each program unit's 
symbol table (X overrides T) . 
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Refer to section 6 for additional information on COS and the CFT 
control statement. Compiler directives are described In section 5. 
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